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SEUS DESENHOS 


Ão desligar o micro, os maravilhosos 
desenhos que você criou na tela 
desaparecem sem deixar rastros. 

Com umas poucas linhas em BASIC, você 
poderá preservá-los em papel. 


A capacidade gráfica dos micros per- 
mite a elaboração de vários tipos de grá- 
fico ou desenho no vídeo. Quer você es- 
teja interessado nas aplicações práticas 
desses gráficos, quer seja um artista 
preocupado em adotar um novo meio de 
expressão, as imagens produzidas com 
a ajuda do computador apresentam uma 
grande limitação: existem apenas en- 
quanto a tela não for apagada. Se você 
quiser uma cópia permanente da ima- 
gem criada, precisará usar uma máqui- 
na fotográfica ou copiar a tela em uma 
impressora gráfica. 

Para guardar uma listagem, uma lis- 
ta de números ou um texto produzido 
por um programa, os usuários também 
têm que recorrer a uma impressora. Há, 
porém, uma grande diferença entre co- 
piar uma tela de textos, escritos em AS- 
CII padrão, e uma tela gráfica, de bai- 
xa ou alta resolução, Com exceção dos 
microcomputadores da linha Sinclair 
(ZX-81 e Spectrum), que possuem o co- 
mando COPY, os comandos de impres- 
são do BASIC, como LPRINT, PR&1, 





PRINT &-2 etc., funcionam apenas com 
caracteres ASCII. Alguns fabricantes 
oferecem impressoras que têm o conjun- 
to ampliado de caracteres. Este inclui os 
caracteres semigráficos, típicos dos mi- 
cros TRS-80, TRS-Color, TK-2000 e 
MSX, mas ainda assim não é suficiente 
para copiar uma tela com gráficos de 
média ou de alta resolução. 

Como vimos em um artigo da seção 
Periféricos (página 648), existem dois 
modelos de impressora para micros: as 
impressoras de tipo formado (como as 
baseadas na ''margarida"), e as impres- 
soras matriciais. Embora algumas im- 
pressoras margarida possam fazer grá- 
ficos compostos de pontos, elas são mui- 
to lentas para ter alguma utilidade na 
cópia frequente de telas gráficas. 
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As impressoras matriciais, por sua 
vez, imprimem os caracteres utilizando 
um conjunto de pontos, num processo 
idêntico ao da formação de caracteres 
na tela de vídeo. O sinal enviado pelo 
computador à impressora aciona uma 
série de pinos ou agulhas situados na ca- 
beça de impressão, de modo a reprodu- 
zir um padrão de pontos que compõe 
um determinado caractere. 

Nas impressoras matriciais não- 
gráficas (Impressoras de texto), os pa- 
drões formados para cada caractere já 
estão pré-programados em uma memo- 
ria ROM na impressora, e não podem 
ser manipulados ou alterados indivi- 
dualmente. Nas impressoras matriciais 
gráficas, porém, pode-se programar ca- 
da agulha da cabeça de impressão por 
meio de software, O que permite a ela- 
boração de gráficos de alta resolução. 





O DESPEJO DE TELA 


Como funciona um programa desti- 
nado a copiar cada pontinho de alta re- 














solução de uma tela gráfica? O coman- 
do COPY dos micros da linha Sinclair 
é um bom exemplo disso. Esse coman- 
do efetua uma operação que chamamos 
despejo de tela (screen dump, em inglês). 

Com o micro acoplado a uma im- 
pressora adequada (própria para a linha 
Sinclair), o comando COPY “'traduz” 
as configurações de pontinhos de cada 
setor da tela em padrões de atuação das 
agulhas da cabeça de impressão. Desse 
modo, o conteúdo da tela (texto e/ou 
gráfico) é fielmente reproduzido — me- 
nos a cor, evidentemente. 

Os sistemas operacionais de alguns 
micros (como o TRS-80) podem ter fun- 
ções de despejo de tela, que também só 
atuam se uma impressora compatível es- 
tiver acoplada à máquina. O CP-500 da 
Prológica, por exemplo, despeja a tela 
semigráfica na impressora P-5005, 
quando as teclas J, K e L são pressio- 
nadas simultaneamente no teclado. 

A maioria dos micros, porém, não 
tem comandos ou funções especiais pa- 
ra produzir despejos de tela. E mesmo 
que seu computador disponha desses re- 
cursos, lembre-se de que eles nada pro- 
duzirão sem a impressora adequada. 





PROGRAMAÇÃO DA IMPRESSORA 


Não é possivel escrever na impresso- 
ra usando o mesmo método com o qual 
escrevemos na tela. Se dermos, por 
exemplo, o comando: 


PRINT CHR$S(255) 


no TRS-Color, um bloco colorido será 
exibido na tela (255 é o código do ca- 
ractere gráfico correspondente). Entre- 
tanto, se você tentar fazer isso com a im- 
pressora, enviando o comando: 


PRINTE-2,CHRS$S (255) 


nada acontecerá, pois a impressora in- 
terpretará o código 255 de modo total- 
mente diferente. Dizemos, por essa ra- 
zão, que os códigos de controle dos dois 
periféricos, vídeo e impressora, produ- 
zem efeitos diferentes. 

Precisamos, assim, de um programa 
especial para efetuar o despejo de tela 
— um programa que prepare a impres- 
sora para receber gráficos. Algumas 
funções automáticas da impressora de- 
vem ser desligadas, e outras, ligadas. E 
necessário acionar a cabeça de impres- 
são de forma que as agulhas possam ser 
controladas individualmente. Além dis- 
so, O avanço horizontal e vertical da ca- 
beça de impressão precisa ser feito em 
passos diminutos, sem deixar espaços 
entre cada ponto impresso. 

As impressoras gráficas podem ser 


programadas externamente para efetuar 
as funções mencionadas. Nesse modo- 
gráfico, é possível atuar sobre grupos de 
agulhas usando códigos de oito bits. A 
informação captada na memória de vi- 
deo é enviada para a impressora não sob 
a forma de códigos ASCII, mas como 
códigos binários correspondentes ao pa- 
drão de ativação das agulhas da cabe- 
ça. Assim, existem códigos binários pa- 
ra desligar o avanço automático de li- 
nha, para avançar a cabeça de uma li- 
nha para outra, para definir O espaço 
entre as linhas etc. O programa propria- 
mente dito simplesmente “varre” a te- 
la e produz as linhas de impressão cor- 
respondentes a cada grupo de bits. 
Mais adiante, apresentaremos pro- 
gramas desse tipo para os micros Spece- 
trum é TRS-Color. Antes disso, porém, 
precisamos examinar as combinações 
micro-impressora possíveis. 


COMPATIBILIDADE 





Os programas de despejo de tela de- 
pendem não só do tratamento dado à te- 
la gráfica pelo computador, como tam- 
bém da marca e do modelo da impres- 
sora que será utilizada. Isso ocorre por- 
que ainda não existe uma padronização 
dos caracteres de controle gráfico e da 
cabeça de impressão. 

Nossos programas destinam-se às 
máquinas que adotam o padrão Epson. 
Este foi estabelecido para as impresso- 
ras do fabricante da marca Epson, e po- 
de ser encontrado em modelos muito 
populares, como, por exemplo, o Epson 

MX-80, MX-120 e FX-80. No Brasil, vá- 
rias empresas, entre elas a Elebra (im- 
pressoras Mônica e Alice), a Rima e a 
Grafix, seguem esse padrão. 

As impressoras compatíveis com o 
padrão Epson usam uma matriz de oito 
pontos de altura. Esta é a configuração 
mais conveniente, pois permite ao mi- 
cro enviar informações provenientes da 
tela, um byte de cada vez, pela interfa- 
ce paralela. O TRS-Color possui inter- 
face serial, mas o método é o mesmo. 
No Spectrum e no ZX-81, o usuário de- 
ve inserir uma interface paralela no co- 
nector de expansão. O Spectrum, além 
disso, precisa ser carregado com um 
programa em linguagem de máquina, 
para usar a impressora. 





TEORIA DE PROGRAMAÇÃO GRÁFICA 


A programação da sequência de im- 
pressão das agulhas da cabeça para a ob- 
tenção de efeitos gráficos pode ser feita 
por meio de alguns comandos simples 





em BASIC. O processo é muito fácil. 
Para entendê-lo, devemos examinar co- 
mo certos bytes enviados para a impres- 
sora são interpretados pelos circuitos de 
controle da mesma. 

A impressora normalmente está capa- 
citada para reconhecer os códigos ASCII 
e ASCII estendido, que estão preé-pro- 
gramados na memória ROM. Assim, se 
enviarmos uma seguência de códigos en- 
tre hexadecimal 20 (correspondente a es- 
paço em branco) e 7E (til), a impresso- 
ra irá reconhecê-los como códigos de ca- 
racteres. Por exemplo, a palavra ABA 
é impressa quando enviamos: 


LPRINT CHR$(65);CHRS(32); 
CHRS (65) 


Entre hexadecimal 00 e IF situam-se 
caracteres de controle com diversas atri- 
buições, que variam de impressora pa- 
ra impressora. No padrão Epson, 
CHR$(7) faz soar o alarme sonoro da 
impressora, CHRS(13) provoca um re- 
torno de carro, enquanto CHRS$(12) de- 
termina a mudança de página. 

Outras funções de controle podem ser 
acionadas por meio da combinação de 
vários caracteres. Essas sequências co- 
meçam sempre pelo caractere CHRS$(27), 
que corresponde ao ESCAPE — por Is- 
so, são chamadas de segiiências de es- 
cape. A sequência ESC G, por exemplo, 
coloca a impressora em modo de im- 
pressão em qualidade carta (cada carac- 
tere é impresso duas vezes): 


LPRINT CHR$(27);"6” 


Para mudar o espaçamento entre li- 
nhas de impressão, utiliza-se ESC A n, 
onde n refere-se ao número de passos 
por avanço de linha: 


LPRINT CHRS(27);"A”;CHRS (4) 


Um passo é equivalente a 1/48 ou 
1/72 de polegada, dependendo do mo- 
delo da impressora (com densidade sim- 
ples ou densidade dupla). No exemplo 
anterior, o deslocamento entre cada li- 
nha de impressão equivale ao espaça- 
mento entre quatro agulhas. 

A seleção do modo gráfico, no padrão 
Epson, é feita pela sequência ESC K 
ou ESC L. Quando você seleciona o 
modo gráfico, o código binário envia- 
do à impressora aciona diretamente o 
padrão de agulhas da cabeça de impres- 
são: quando o bit for 1, a agulha cor- 
respondente é acionada; quando o bit 
for O, a agulha fica inativa. O bit me- 
nos significativo (DO) controla a agulha 
inferior, e o bit mais significativo (D7), 
a agulha superior. Assim, se quisermos 
imprimir uma coluna de pontos, a agu- 
lha de cima e as duas últimas agulhas de 
baixo não serão acionadas; o código a 
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enviar é 10000011, ou 128+0+0+0+ 
0+0+2+1 = 131 em decimal. 

A sequência de escape precisa espe- 
cificar, ainda, o número de bytes de có- 
digo gráfico que serão enviados, e, em 
seguida, os bytes propriamente ditos: 
ESC K nl n2 dados. 

Os bytes nl e n2 são, respectivamen- 
te, o mais significativo e o menos signi- 
ficativo de um número de dezesseis bits, 
e devem ser apresentados no conhecido 
formato 256 * n2+n1l. 

Se vamos enviar 550 bytes gráficos, 
damos o comando: 

LPRINT CHAS(27);CHRS(38);CHAS 
(4); 


pois 256*2 + 38 = 550. A expressão 
que se segue, em BASIC, serve para cal- 
cular nl e n2 a partir de n, que repre- 
senta o número total de bytes: 


N1l = INT (N/256) 
N2 = N-INT (N/256) 


Este programa ilustra o padrão de 
acionamento das agulhas: 


10 LPRINT CHAR$S(27);"A”;CHRS(8) 
20 LPRINT CHRS(27);"K”;CHRS (16) 
;CHRS (0): 

30 FOR J=7 TO O STEP -1 

40 LPRINT CHARS(2**J); 

50 NEXT J 

60 FOR J=0 TO 7 

70 LPRINT CHRS(2**9); 

BO NEXT J 

90 LPRINT CHR$S (10); 


Tu 


10 LPRINT CHR$S(27);"A”;CHAS (8) 

20 FOR I=1 TO 5 

25 LPRINT CHR$S(27/);"K”;CHRS(16) 
:CHRS (0); 

30 FOR J=7 TO O STEP 
dO LPRINT CHRS(2'"J); 


- 1% 


50 NEXT J 

60 FOR J=/7 TO O STEP -1 
70 LPRINT CHR$S(2"J); 

80 NEXT J 

90 LPRINT CHR$(10); 

100 NEXT I 


10 PRINT4-2,CHRS(27);"A”;CHAS 
(8) 
20 PRINT4-2,CHAS(27);"K”;CHRS 
(16) ; CHR3 (0); 
| FOR J=7 TO O STEP -1 
40 PRINT+A-2.CHRS(2"J); 
50 NEXT q 
60 FOR J=7 TO O STEP -1 
70 PRINT4-2, CHRS(2"J); 
BO NEXT J 
90 PRINT+-2,CHRBS (10); 


5 PR41 

10 PRINT CHARS (27);"A”;CHRS(B) 
20 PRINT CHR$S(27);"K";CHRS(16); 
CHRS$ (0); 

30 FOR J=7 TO O STEP -1 

40 PRINT CHRS(2"J); 

50 NEXT J 

60 FOR J=7 TO O STEP -1 

70 PRINT CHR$S(2'J); 

BO NEXT J 

90 PRINT CHRS (10); 

100 PR40 





A linha 10 estabelece um espaçamen- 
to de oito passos entre linhas. A 20 pro- 
grama a impressora para o modo gráfi- 
co, avisando que a seguir serão envia- 
dos dezesseis bytes gráficos. Quando os 
dados não estão incluidos imediatamen- 
te na sequência de escape, o ponto e vir- 
gula no final dessa linha é obrigatório. 
Os laços das linhas 30 a 50 e 60 a 80 i1m- 
primem, respectivamente, um padrão 
descendente e outro ascendente de pon- 
tos (determinados pelos códigos que cor- 
respondem a potências de 2: 128, 64, 32 
etc.). Finalmente, a linha 90 alimenta 
uma linha. 


MONTAGEM DA TELA 





Para copiar um desenho na impres- 
sora, é necessário executar um progra- 
ma que o trace na tela. Existem duas al- 
ternativas para isso. Uma delas consis- 
te em carregar o programa de desenho 
no computador e, em seguida, combiná- 
lo com o programa de despejo (a nume- 
ração das linhas de ambos tem que ser 
diferente). O primeiro programa deve 
ser alterado na tela depois que o dese- 
nho estiver pronto, de modo que o pro- 
grama de despejo seja chamado auto- 
maticamente, ou quando se pressionar 
determinada tecla. Se achar convenien- 
te, poderá incluir permanentemente o 
programa de despejo no programa de 
desenho, na forma de uma sub-rotina. 

A segunda alternativa é a de mais fá- 
cil execução, mas depende da capacida- 
de do micro de armazenar o conteúdo 
de telas gráficas em disco ou fita (co- 
mandos BSAVE, SAVEM etc.). Se seu 
computador tem essa capacidade, car- 
regue e execute o programa de desenho 
e armazene a tela resultante em fita ou 
disco, Depois, carregue o programa de 
despejo usando um comando na linha 
10 (essa linha não foi colocada nos pro- 
gramas que se seguem justamente para 
criar um espaço para o seu comando de 
carregamento). Com esse procedimen- 
to, O programa irá ler, em primeiro lu- 
gar, a tela armazenada. 





Para os usuários do TRS-Color, o 
sistema é um pouco diferente: algumas 
linhas do programa de despejo têm que 
ser executadas antes que o desenho seja 
tracado na tela. 


IMAGEM DE LADO 





A imagem despejada por este progra- 
ma é imprimida de lado — ou seja, no 
sentido longitudinal e não transversal, 
relativamente à imagem que aparece na 
tela, Com isso, obtemos uma imagem 
maior e mais margem no papel. 


15 LPRINT CHASS; 

20 LPRINT CHAS27; "A"; CHRSB; 
30 FOR x=0 TO 255 STEP 4 
40 LPRINT CHRS13; CHRS27; 
CHRS50; CHR$S96; CHRS1; 

50 FOR v=0 TO 175 STEP 8 
60 FOR d=0 TO -7 STEP -1 
70 LET bt= (POINT (x,v-d)*12B)+(P 
OINT(x,y-d)*64)+ (POINT (x+1,y-d) 
*32)+(POINT(x;1,y-d)*16)+(POINT 
(x+2,y-0)48)+ (POINT (x+2;y-d)*4) 
+ (POINT (x+3,y-d)*2) + (POINT (x+3, 
y=d)) 

/2 LPRINT CHBSbt; 

*4 LPRINT ClRSDt: 

B0 NEXT d 

90 NEXT y 

100 NEXT x 

J10 LPRINT CHAR54: STOP 


A linha 15 desliga o conjunto de ca- 
racteres ASCII na impressora. O co- 
mando LPRINT da linha 20 informa à 
impressora que não deve haver espaça- 
mento entre as linhas impressas. 

O laço que vai da linha 30 à 100 var- 
re uma linha da tela, em blocos de qua- 
tró pixels de cada vez. À linha 40 passa 
para a impressora um código de retor- 
no de carro (código 13) e, em seguida, 
o código *0, que se encarrega de prepa- 
rar a máquina para receber o número de 
bytes que a linha corrente de tela irá en- 
viar. Esse byte é composto dos códigos 
96 e 1 (também na linha 40), que são in- 
terpretados como 1*256 + 96 — ou se- 
ja, 352 bytes. 

O laço da linha 50 à linha 90 percor- 
re a tela de cima para baixo; o laço da 
linha 60 à 80 toma um bloco de oito pi- 
xels de cada vez. Antes de Incrementar 
os laços, a linha 70 usa o comando 
POINT para ler os pixels na tela. Estes 
são condensados pela expressão numé- 
rica no byte ht, que é enviado duas ve- 
zes à Impressora, pelas linhas 72 e 74. 
A segunda impressão fará a imagem 
aparecer duas vezes maior que na tela, 
na direção horizontal. 

Finalmente, a linha 110 retorna a im- 
pressora ao conjunto ASCII e encerra 


EK”. 











a execução. Se você quiser transformar 
esse programa em sub-rotina, não se es- 
queça de substituir o STOP dessa linha 
por um RETURN. 


2 DIM A(8,1) 


4 FOR K=-0 TO G: REAL A(K,0),ACK 


1) :NEXT 

6 DATA 3,3,2,1,0,0.3,1,3,3,0.0, 
Det dragao 

20 PRINT 4-2. CHRS(27):"A”;CHRS 
(8) 


340 FOR L=0 TO 255 STEP 4d 

40 PRINE 4-2,CHRS(13);CHR$S(27), 
"K”:CHRS(0);CHRS (128); CHARS (1); 
50 FOR K=191 TO O STkEP -1 

60 T=0:5=0:FOR M=0 TO 3: P=PPOIN 
T(LAM,K) :T=TA4+A(P,0):5=5"*4+A(P 
1) :NEKT 

70 PRINT 4-2, CHRS(T);CHRSCSD; 
BO NEXT kK,L 

90 PRINT 4-2,CHRS(27);"€” 


É importante que as três primeiras li- 
nhas do programa (2, 4 e 6) precedam 
a rotina de geração da tela gráfica que 
será impressa. Na linha 10, reservada 
para o seu programa, você deve estabe- 
lecer o tipo de SCREEN e de PMODE. 
Em virtude da forma de armazenagem 
de telas gráficas no TRS-Color, o pro- 
grama de despejo precisa levar em con- 
ta as cores empregadas. 

A linha 2 dimensiona um conjunto 
A, para armazenar o padrão de pontos 
usado em cada cor. Existem nove cores, 
mas nem todas podem aparecer na tela 
ao mesmo tempo. Os padrões estão de- 
finidos em DATA, na linha 6, e são car- 
regados no conjunto A pela linha 4, 
Dois itens em DATA determinam cada 
cor; o segundo é impresso sobre o pri- 
meiro. Por exemplo, o primeiro par de 
números (3,3) indica preto, formando 
um padrão binário de 3 (11) sobre 3 (11). 
O segundo par (2,1) especifica verde, 
formando um padrão de 1 (01) sobre 2 
(10). Note que há repetição de pares na 
sequência, mas isso não importa: a se- 
gunda ocorrência determina uma cor 
que não pode aparecer na tela junto com 
a primeira especificação. 

A linha 20 prepara a impressora pa- 
ra receber gráficos. A seglência de es- 
cape que contém instrui a impressora a 
não dar espaçamento entre linhas. 

O laço que vai da linha 30 à 
80 percorre uma linha da tela, 
em blocos de quatro pixels, A 
linha 40 envia à impressora um 
código de retorno de carro (13) 

e, em seguida, o código *, que 
coloca a impressora em modo 
gráfico. Ainda nessa linha, 
CHRS$(0) define a densidade de 
impressão e CHR$(128);CHRS() 





diz à impressora para esperar 128+ 
1*256 bytes gráficos, ou seja, um total 
de 384 bytes. 

O laço da linha 50 à 80 percorre a te- 
la de cima para baixo (192 pixels de al- 
tura); o da linha 60 toma quatro pixels 
de cada vez, examina-os com PPOINT, 
calcula as cores e coloca o resultado nos 
bytes Se P. A linha 70 imprime esses 
bytes. Finalmente, a linha 990 reinicia- 
liza a impressora. 


PROBLEMAS COM CORES 


O programa de despejo de tela, em 
BASIC, imprime apenas uma represen- 
tação binária, em preto e branco, da te- 
la de alta resolução, pois reproduz o pa- 
drão de pixels sem diferenciar as cores 
presentes na imagem original. Em con- 
sequência, a imagem obtida apresenta 
densidade igual para todas as cores, não 
representando com fidelidade o desenho 
copiado. 

E possível, porém, escrever um pro- 
grama de despejo de tela em que as co- 
res sejam representadas por diferentes 
tonalidades de cinza e preto. Esse efei- 
to é conseguido por impressões sobre- 
postas de partes da imagem, de modo 
a obter tons mais escuros ou claros de 
cinza, conforme a cor presente. Em uma 
tela com quatro cores, por exemplo, po- 
dem-se definir quatro diferentes padrões 
de pontos, para representar o vermelho, 
com um cinza bem claro; o verde, com 
um cinza mais escuro etc. Isso é feito ini- 
bindo-se o avanço da cabeça de im- 
pressão. 

Evidentemente, o tempo total de im- 
pressão é muito longo, nesse caso. Um 
despejo de tela simples demora quase 
meia hora em alguns micros; se levar- 
mos em consideração a cor, esse tempo 
será aumentado para várias horas! Um 
programa em código de máquina — co- 
mo o que apresentamos a seguir para 
duas linhas de computadores — pode re- 
solver esse problema. 


10 CLEAR 59999 

20 LET L=100: RESTORE L: 
60000 TO 60247 STEP B 

30 LET T=0:FOR M=0 TO 7 
40 READ A:LET T=T+A:POKE N+M,A: 
NEXT M 

S0 READ A:IF A<>T THEN PRINT “E 


FOR N= 


RRO NOS DADOS DA LINHA ";L: STO 
P 
60 LET L=L+10: NEXT N STOP 


100 DATA 243,62,3,205,1,22,33,7 
0,639 

110 DATA 235,6,4,205,9,235,62,0 
[756 

120 DATA 50,83,235,62,0,50,84,2 
19,799 

130 DATA 6,175,221,33,85,235,19 
7,62,1014 

140 DATA4,237,75,83,235,245,205 
AI, 1099 - 

150 DATA 235,245,205,30,235,7241 
1126,32,1349 


160 DATA 6,203,63,203,63,203,63 
,230,1034 

170 DATA 7,214,7,237,68,221,119 
0,873 

180 DATA 221,35,241,12,61,]2,22 
2,58,882 | 

190 DATA 84,235,660,50,84) 235,1 
93,16,957 

200 DATA 205,6,7,197,33,74,235, 
6,763 : 
210 DATA 9,205,9.235,221,33,85, 
235,1032 

220 DATA 6,175,197,6,4,30,0,197 
,615 

230 DATAZ03,35,203,35,221,126,0 
,254,1077 


240 DATA 0,40,7,221,53,0162,3,3 
86 

250 DATA 24,2,62,0,131,95,221,3 
2,570 

260 DATA 193,166.,228,123,245,21 
S,241,215,1476 



























270 DATA 193,16,215,193,16,197, 
33,65,928B 

280 DATA 235,6,5,205,9,235,62,1 
0,767 

£90 DATA 215,58,83,235,198,4,50 
[83,926 

300 DATA 235,210,115,234,62,4,2 
15,251,1326 

310 DATA 201,126,35,215,16,251, 


5 

1010 DATA 140,231,77,39,4,129,2 
[/38,3,108,140,220,150,193,68,16 
/,140,216,48,140,214,23,0,142,2 
632 

1020 DATA 95,52,4,51,141,1,1,19 
8,191,166,228,52,6,134,4,52,2,2 
3,0,134,48,140,107,166,1996 
1030 DATA 134,167,192,108,97,10 





7 ,3357 


Embora o código de máquina esteja 
contido em uma lista de números em 
DATA, cada linha inclui somas de ve- 
rificação, cuja finalidade é evitar que se 
cometam erros de cópia. 

Não se esqueça de observar as pre- 


e 201,197,1242 6,228,38,240,53,2,53,6,166,228, cm lincuagem de rodar um programa 
320 DATA 205,170,34,71,4,126,20 '90,1993,255,38,223,198,3152,6,28 "O NDgUAgEM. GE TNQUINS. Dara BRO 
3,7,820 TÁ Correr TISCOS, armazene O programa, as- 

' 330 DATA 16,252,230,1,193,201,1 1040 DATA 51,141,0,212,198,192, Sim como suas versões corrigidas, em fi- 
97,62,1152 231,228,48,140,65,141,81,79,198 ta ou disco, antes de executá-lo. 

. 340 DATA 175,144,230,248,71,88,  ,4,7/2,72,106,192,43,2,138,3,263 Depois de testar o programa comple- 
22,0,978 | 7 to, rode-o com RUN e, em seguida, apa- 

, Ro DRA POA, 35,203,18,203,35,2 e rua asa gue-o (0 programa em código de máqui- 
do do LO k a do , , nós (428,36, na ficará armazenado em uma porção 

: 360 DATA 121,203,63,205,63,205; 134,13,173,159,160,2,106,97,38 protegida da memória RAM). Digite ou 

370 DATA 38,0,25,17,0,88,25,193 1060 DATA 207,53,6,134,10,173,1 carregue seu programa de desenho e exe- 
, 386 59,160,2,53,4,173,159,160,0,129 Cute-o. Para imprimir a imagem na te- 

380 DATA 201,27,64,27,65,8,5,27 ,3,39,4,203,4,38,138,48,2059 la, chame este comando: 
424 1070 DATA 140,17,32,18,5,27,42, 

390 DATA 65,8,27,65,0,13,27.42, 4,128,1,3,1,0,2,3,0,1,2,3,2.27. Es 





247 

400 DATA 0,96,1,0,0,48,48,193,3 
B6 

10 CLEAR 200, 29992 

20 CLS:FOR K=D TO 12:T=0:FOR L= 
O TO 23:READ A 

30 POKE 29993+24*K+L,A:T=T+A 

40 NEXT:READ A:IF A<>T THEN PRI 
NT “ERRO NOS DADOS DA LINHA";10 
00+10*K: END 

50 NEXT 

1000 DATA 0,0,0,3,27,51,24,134, 


254,151,111,111,140,242,111,140 
,240,150,182,133,1,39,3,108,235 


64,230,128,880 

10B0 DATA 166,128,173,159,160,2 
/90,38,247,57,134,32,109,141,25 
5,48,39,1,68,52,2,166,101,214,2 
582 

1090 DATA 182,193,1,34,1,68,230 
,/224,61,211,186,31,1,230,99,84, 
84,84,109,141,255,18,39,1,2567 
1100 DATA 84,58,166,99,109,141, 
£953,8,99,8,132,15,64,199,15,68, 
32,5,132,7,64,139,7,198, 1984 
1110 DATA 1,7/4,43,3,88,32,250,1 
09,141,254,238,39,14,52,4,197,8 
5,59,5,88,235,224,32,3,2250 
1120 DATA 84,235,224,52,4,166,1 
32,164,224,84,37,3,68,32,250,17 
1,141,254,206,171,141,254,203,5 


RANDOMIZE USA 60000 


EXEC 30000 


E importante desligar a alimentação 
automática de linha em sua impressora, 
antes de usá-la para despejos de tela. Pa- 
ra 1SSo, siga as instruções do manual de 
operação. 

Imprima a tela em uma fita de im- 
pressão já usada, pois isso proporciona- 
rá um contraste melhor entre as diferen- 
tes tonalidades. 
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DO PASCAL 


Como vimos no artigo da página 
1436, é fundamental estudar a maneira 
de solucionar determinado problema an- 
tes de iniciar a elaboração de um pro- 
grama em Pascal. O algoritmo para a re- 
solução do problema deve ser aperfei- 
coado e refinado até se tornar semelhan- 
te a um programa que possa ser com- 
preendido pelo microcomputador. 

Para realizar essa tarefa, você preci- 
sará conhecer as ferramentas disponíveis 
no seu micro, ou seja, as estruturas e Os 
comandos aceitos pelo Pascal. Esse pro- 
cedimento não é muito diferente daquele 
que adotamos ao elaborar um progra- 
ma em BASIC. A partir de nossa expe- 
riência com a máquina, sabemos quais 
comandos são válidos, o que nos permi- 
te esboçar uma solução adaptável ao mi- 
crocomputador. 

No BASIC, diversos recursos podem 
ser utilizados em cada etapa da resolu- 
ção de um problema. Esses recursos não 
se resumem a simples comandos, mas a 
combinações de vários deles. Por exem- 
plo, quando precisamos repetir uma ta- 
refa várias vezes, um laço FOR...NEXT 
costuma ser uma boa saida; para uma 
tomada de decisão, basta um 
IF... THEN. Existem estruturas seme- 
lhantes em Pascal — mas elas exigem 
um grau de refinamento maior que no 
BASIC. Neste artigo, examinaremos as 
mais simples e úteis dessas estruturas. 








COMPATIBILIDADE 


Ao contrário do BASIC, o Pascal é 
definido muito precisamente, não ten- 
do variações entre um sistema e outro 
(como as existentes entre o BASIC do 
MSX e o do TK-2000, por exemplo). As- 
sim, Os programas que se seguem fun- 
cionarão em qualquer máquina cujo 
compilador aceite letras minúsculas. 

Pela mesma razão, ao escrever seus 
próprios programas, você deverá usar 
uma determinada forma para cada ope- 
ração. Para apresentar o padrão utili- 
zado na definição da forma e da sinta- 
xe do programa, pode-se recorrer a uma 
notação desenvolvida durante os anos 
60, conhecida como Forma de Backus- 
Naur (BNF), ou ao diagrama de sintaxe. 

Ambas as notações simplesmente 


STRUTURAS 


mostram a estrutura geral de uma decla- 
ração. Suponhamos que se queira defi- 


nir um identificador: um identificador é 


definido como uma letra ou um digito. 
Em um diagrama de sintaxe, teriamos: 


Eudes 








ERRAR 


Já examinamos a filosofia e os 
princípios básicos do Pascal. 
Mostraremos agora como as estruturas 
dessa linguagem são organizadas 

na construção de um programa. 












-pes-g TEL YUM 


ed! ai FA 


E po 
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& COMPATIBILIDADE TOMADA DE DECISÕES 
Fi TÉCNICAS DE REPETIÇÃO  F..THEN...ELSE 
m | WHILE..DO E CASE 
A REPEAT...UNTIL E DESENVOLVIMENTO 
Ei FOR DE UM PROGRAMA 


Na notação de Backus-Naur, a mes- 
ma definição teria a seguinte forma: 


<identific>::= <letra> | <letra ou 
dígito > 


Cada uma dessas representações 
mostra o significado exato da definição 
dada anteriormente. Para definir letra, 
você poderia escrever em BNF: 


<letra>:=AIBICIDIEIFIGete 


Ou seja: uma letra é definida como 
A ou BouCou Dou E ou Fete, 

As próximas estruturas-padrão serão 
dadas em BNF, para mostrar sua for- 
ma original, mas você reconhecerá fa- 
clmente as equivalentes em BASIC. 


na id qem 
RN 
«o fa 


ma RR 





TÉCNICAS DE REPETIÇÃO 





Existem três técnicas de repetição no 
Pascal. A escolha de uma delas depende 
do parâmetro a ser empregado no con- 
trole do laço. A primeira é familiar aos 
usuários do BASIC: FOR...DO, As ou- 
tras duas, que também podem ser simu- 
ladas naquela linguagem, são: WHILE... 
DO e REPEAT...UNTIL. 

A principal diferença entre essas téc- 
nicas está na condição de controle res- 
ponsável pelo número de repetições. Na 
forma WHILE..DO (ENQUAN- 
TO...FAÇA), as instruções seguintes se- 
rão executadas enquanto determinada ex- 
pressão continuar sendo verdadeira. A 
torma REPEAT...UNTIL (REPI- 
TA... ATÉ QUE) irá executar uma série de 
instruções até que uma dada condição se- 
ja alcançada. Ambas as técnicas são usa- 
das quando não se sabe de antemão o nú- 
mero de repetições necessárias. Caso es- 
se número possa ser previamente defini- 
do, utiliza-se a forma FOR...DO. 






WHILE...DO 


Em BNF, escreve-se: 


while < expressão lógica > do < instrução > 


Esse laço é empregado quando o nú- 
mero de repetições depende de uma con- 
dição, Assim, será executado enquanto 
a condição especificada no programa 
for verdadeira. Para repetir uma série 
de instruções dentro desse laço, adiício- 
ne, após o do, um begin — indicando 
o início das instruções — e um end — 
indicando o término do laço. 

O exemplo que se segue mostra o uso 
do WHILE...DO. Tente escrever o al- 
goritmo em que o programa se baseia. 


program exemploZ; 
var no, sum:integer; 
begin 
sum:=0; 
read (no); 
while no<>0 do 
begin 
sum: =sum+no ; 
read (no) 
end; 
writeln (sum) 
end. 








— REPEAT...UNTIL 


repeat < instrução > until < expressão 
lógica > 


As instruções entre repeat e until são 
repetidas até que a condição final se tor- 
ne verdadeira. Todas elas são executa- 
das pelo menos uma vez, pois o teste só 
é feito ao final. Ao contrário da forma 
while...do, não é necessário acrescentar 
begin e end a um conjunto de instruções. 
Usando-se essa técnica, o programa an- 
terior pode ser escrito da seguinte 
maneira: 


program exemplo3; 
var no, sum:infeger; 
begin 

sum:=0; 

repeat 

read (no); 

sum: =5sum+no; 
until no=0; 
write (sum) 
end 


Esse programa é mais eficiente que o 
anterior, pois, com o uso de repeat...un- 
til, economiza-se uma instrução 
read(no). Para efetuar uma soma cor- 
rente, é melhor que o programa entre di- 
retamente no laço inicializado por re- 
peat. No programa exemplo2, o progra- 
ma chega à solução por intermédio de 
uma estrutura menos adequada que a 
utilizada no exemplo3. 


BRR ca ReR 
No Pascal, ao contrário do que acon- 
tece no BASIC, o laço inicializado por 
FOR só pode caminhar em passos 
(STEP) de + lou — 1. Adaptando o pro- 
grama anterior ao uso dessa técnica, tere- 
mos que introduzir inicialmente a quan- 
tidade de números a serem somados. 


program exemplo4d; 
var no, eum, quant,i:integer; 
begin 
read (quant): 
sum: =0; 
for 1:=1 to quant do 
begin 
read (no); 
sum: =sum+no 
end: 
writeln (sum) 
end. 


“ TOMANDO DECISÕES 





Como o BASIC, o Pascal dispõe de 
vários recursos para verificar qual deci- 
são deve ser tomada diante de determi- 
nado resultado. O primeiro deles, co- 
mum ao BASIC, é o if...then...else, ge- 


ralmente usado quando a seleção depen- 
de de um ou outro de dois eventos. Po- 
rém, se a decisão depende de um núme- 
ro maior de eventos, costuma-se utilizar 
case...of. Não há nenhuma estrutura si- 
milar a case no BASIC. 


IF...THEN...ELSE 





if < expressão lógica > then < instrução 
| >else < instrução 2> 


Essa estrutura indica que, se a expres- 
são lógica for verdadeira, o programa 
executará a instrução 1; se for falsa, a 
instrução 2. Como mostra o diagrama 
FBN, o else é opcional; uma construção 
alternativa seria if... then. 






CASE 


A declaração case permite ao progra- 
ma selecionar uma instrução de uma lis- 
ta de várias possibilidades. 

A forma geral de case é: 


case expressão of 


cl : instrução; 
c2 : Instrução; 


LB 
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cn : instrução 
end; 


O valor da expressão deve correspon- 
der a um dos c e ser do mesmo tipo. No 
Pascal padrão, se o valor da expressão 
não for encontrado na lista, uma men- 
sagem de erro será exibida. Em algumas 
versões, porém, o programa simples- 
mente ignorará O case. 

Note que há um end associado ao ca- 
se que não corresponde a nenhum be- 
gin. Esse tipo de estrutura não é fre- 
quente, e pode trazer inconvenientes du- 
rante a busca de um erro dentro do pro- 
grama. Geralmente, a primeira coisa 
que se faz é verificar se há correspon- 
dência entre o número de begin e end. 
A associação do end ao case provoca- 
ria uma diferença. Para contornar o 
problema, coloca-se um rótulo em ca- 
da end — por exemplo, end; jcase|. 

As instruções equivalentes a cada op- 
ção (e) podem ser instruções compostas, 
sempre entre um begin e um end. 

Veja este exemplo do uso de case: 


program exemplos; 

var nodia:infeger; 

begin 
readin(nodia); 
1£ (nodia>0) and (nodia<B) 
then 


case nodia of 
lI:writeln('Segunda-feira ); 
2:writeln('Terça-feira ); 
3:.writeln('Quarta-feira ); 
d:writeln('Quinta-feira'); 
S:beqgin 
writeln('Sexta-feira'); 
writeln('Dia de pagamento ') 
end; 
6,7:begin 
writeln('Fim-de-semana'); 
writeln('Descanso'); 
end; 
end 
else begin 
writeln(' Use valores '); 
writelnl'entre 1 e 7') 
end; 
end. 


Em algumas variações do Pascal, os 
rótulos 1, 2, 3,4,5,6e 7 devem ser co- 
locados entre parênteses, fugindo, por- 
tanto, do Pascal padrão. Na verdade, 
em algumas implementações para a 
adaptação ao sistema BASIC, a mudan- 
ça na sintaxe é necessária. 

O programa exemplo5S mostra co- 
mo superar um problema bastante fre- 
quente no uso do case. Muitas vezes, O 
identificador pode assumir valores não 
encontrados entre os rótulos de case, O 
que provocaria uma interrupção e uma 
mensagem de erro. Assim, utilizamos 
um desvio condicional if...then...else 
para mudar o curso do programa, caso 
os valores de nodia não se encontrem 
no intervalo apropriado. Observe tam- 
bém que foram empregados rótulos com 
mais de um valor e instruções compos- 
tas após alguns deles. 





DESENVOLVIMENTO DE PROGRAMAS 


Com um conhecimento mais detalha- 
do dos procedimentos disponíveis no 
Pascal, podemos passar ao exame de um 
programa escrito nessa linguagem. 

O programa que apresentamos a se- 
guir verifica se uma palavra ou frase é 
um palíndromo — ou seja, se ela pode 
ser lida de trás para frente sem sofrer al- 
teração (como ''radar"" ou “Socorram- 
me, subi no ônibus em Marrocos”), ig- 
norando-se os espaços em branco e os 
sinais de pontuação. Suponhamos que 
você queira testar se esta frase é um pa- 
lindromo: 


Arara é ave rara 

O algoritmo inicial poderia ser: 
begin 

leia uma cadeia de caracteres 


teste se é um palindromo 
end 











Essa frase inicial é bem simples, con- 
sistindo só de duas etapas, além do be- 
gin e do end requeridos pelo Pascal. Po- 
deriamos elaborar um algoritmo mais 
detalhado para a primeira etapa: 


início 
leia o número de caracteres (n) 
leia os caracteres colocando-os na 
matriz A(i) 

fim 


Traduzindo essa primeira etapa pa- 
ra o Pascal, temos: 


readin(n) 
for 1:=1 to n do read(la[lil); 


Passando para a segunda etapa, che- 
gamos ao seguinte algoritmo: 


início 
faça crsc igual a 1 
faça decr igual a n 
enquanto crsc < decr faça 
se alcrsc| é pontuação então 
incremente crsc 
senão 
se aldecr| é pontuação então 
decremente decr 
senão 
se ajcrsc|= a[decr| então 
incremente crsc 
decremente decr 
senão 
faça a variável booleana 
(pal) igual a false 
fim 


Esse algoritmo poderia ser refinado 
para o Pascal desta maneira: 


while (crsc < decr) and pal do 
sjEtalerscl]="'" 'Jortalcrscl=".") 
or (alcrsc]=",'Jor(alcrsc)]=-'""") 
Lhen crac:=croc+ 
else 
rÉ(aldecr ]J=' "Jor(aldecr ]=".') 
or (aldecr |=",'Jor(aldecr |-'""") 
then decr:-decr-l 
else 
1f a(fcrscl]=-aldecr | 
begin 
crac:-crsctl: 
decr:-decr-l; 
end 
else pal:-false 


Lhenri 


Precisariamos de uma terceira etapa, 
na qual o programa mostraria o seguinte 
resultado: 


se pal é igual a true então 
escreva “palíndromo” 

senão 
escreva ''não é palíindromo” 


o que, em Pascal, corresponderia a: 


1f pal then 
writeln('palindrome'); 

else 

writeln('não há palíndrome') 


“O PROGRAMA COMPLETO 





Refinando algumas partes anteriores 
e reunindo-as, chegamos ao seguinte 
programa em Pascal: 


program exemplo6; 
const comp=30; 
var a!array [1..comp] of char; 
lan, cresc, decr integer; 
pal boolean; 
begin 
pal:=true; 
readin(n); 
for 1:=1 to n do read(ali]): 
crsc:=l1; 
decr:=n; 
while (crec < decr) and pal do 
if(alcrscl]=' ' jor(aflcrscl='.') 
or(alcrsc)=','Jor(alcrscl='"') 
then crsc:=crsc+1 
else 
1f(aldecr)]=' 'Jor(aldecr)='".') 
or (al[decr )=', 'Jor(aldecr |]='"') 
Then decr:=decr-l 
else 
1f alcrsc]saldecr) then 
begin 
crsc:=crsc+l; 
decr:=decr-l; 
end 
else pal:=false; 
1f pal then 
writeln('palindrome') 
else 
writeln('nao ha palindrome') 
end. 

O Pascal apresenta um tipo de variá- 
vel desconhecido do BASIC, a variá- 
vel booleana, que não assume valores 
numéricos nem guarda caracteres. Ela 
assume o valor de resultados lógicos — 
true (verdadeiro) e false (falso). Note 
que é desnecessário dizer: 


if pal = true then... 
bastando apenas: 


if pal then... 


REFINANDO O PROGRAMA 


Se o seu sistema Pascal dispõe de al- 
gumas formas adicionais de manipular 
dados, diversos aperfeiçoamentos po- 
dem ser incorporados ao programa. En- 
tretanto, como está, ele deve funcionar 
na maioria dos sistemas. 

A variável booleana é usada para des- 
viar o programa do laço while quando 
se determina que afcrsc| não é igual a 





aldecr].| Tudo o que precisa ser feito é 
tornar pal igual a false quando o teste 
ajcrsc| = ajdecr] apresentar esse resul- 
tado. No momento em que o programa 
voltar para o cabeçalho do laço, encon- 
trará um desvio condicional dentro de 
while. A técnica empregada em BASIC 
seria a seguinte; 


140... 

150 FOR T=1 TON 

190 TE A(CASC)<S2A(DECR) THEN 
260 

230 NEXT TI 

240 PRINT CPALTNDHOME” 

250 GOTO 2/0 

260 PRINT "NAO E PALTNDRÔOME”" 
20 END 


Um algoritmo melhor estruturado 
poderia ser apresentado assim: 


início 
defina o conjunto pontuação 
se afersc| estiver em pontuação então 
incremente crsc 
senão 
se aldecr| estiver em pontuação então 
decremente decr 
sendo 


LE 


Uma declaração desse tipo economi- 
zaria exaustivas comparações do tipo: 


if (alerscl='" 9 or (alerscl=",) or 
(afcrsc]=".") or (alerscj="""") then... 


O Pascal aceita a definição de con- 
juntos (alguns compiladores mais sim- 
ples podem não aceitar essa declaração). 
Assim, modifique o programa anterior 
aproveitando essa definição: 


program exemplo/; 

const comp=30; 

LYpe caftac =" “ice '; 

simb = set of carac; 
array[l..comp] of char; 

integer; 


var a 
i,n,crsc,decr 
pal boolean; 
pont : simb; 

begin 

pontrml* "tt" 

pal:= true; 
readln(n); 
for i:=l to n do read(a[il); 
crsc:=l1; 
decr:=n; 
while (crsc<decr) and pal do 
1f a[lcrsc] in pont then 
crsc:=crsc+l 
else 
if aldecr ] in pont then 


E lp O 








decr :=decr-l 
else 
if alcrsc])=a[ldecr] then 
begin 
crasc:=crsc+l; 
decr:=decr-l; 
end 
else pal:=false; 
1f pal then 
writeln('palindrome') 
else 
writeln('nao ha palindrome') 
end. 


Finalmente, temos a melhor estrutu- 
ra para o problema do palindromo, ori- 
ginalmente dividido em três etapas: 


* entrar a cadeia de caracteres 
* verificar se ela é um palindromo 
* mostrar o resultado 


Cada etapa foi refinada em etapas 
menores até que os resultados fossem as 
próprias declarações em Pascal e, jun- 
tas, formassem um programa. No nos- 
so caso, o programa era bem simples. 
Porém, em situações mais complexas, é 
aconselhável construi-lo por partes se- 
mi-independentes (procedures) e testá- 
las separadamente. Um procedure é uma 
sub-rotina nomeada com um rótulo e 
declarada junto com as variáveis. Du- 
rante a execução do programa, basta 
chamar o procedure através de seu ró- 
tulo, como se fosse um comando. Essa 
técnica permite modularizar os progra- 
mas, tornando-os bem estruturados. 

Há dois grupos de sistemas Pascal. 
Um deles usa compiladores em código 
específico — ou seja, escritos exclusiva- 
mente para as máquinas em que irão ro- 
dar. Como várias máquinas são simila- 
res, usando sistemas operacionais CP/M 
ou MS DOS, as adaptações de uma pa- 
ra outra são muito simples. 

O segundo grupo é conhecido como 
Pascal UCSD (Universidade da Califór- 
nia, em San Diego). Nesse sistema, O 
Pascal é compilado para o código de um 
computador hipotético denominado má- 
quina p, e seu código é conhecido por 
código p. Isso significa que o compila- 
dor é o mesmo para todas as máquinas. 
Na verdade, o UCSD é escrito em Pas- 
cal, possuindo um programa especifico 
para cada máquina. Sua vantagem é a 
incrível compatibilidade. Porém, a ve- 
locidade da compilação nesse sistema é 
bem menor que a proporcionada pelo 
compilador específico, 





EXPERIÊNCIAS COM O PASCAL 


Se você possui um sistema Pascal pa- 
ra seu microcomputador, tente colocar 
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em execução alguns dos exemplos ante- 
riores. Para isso, depois de ter acessa- 
do o compilador Pascal, digite o progra- 
ma e compile-o. Os programas devem 
funcionar para qualquer compilador 
que aceite letras minúsculas. 

Os microcomputadores que usam O 
CP/M dispõem de um compilador po- 
deroso, o TURBO PASCAL. Para aces- 
sá-lo, basta chamar do disquete o nome 
TURBO, seguido de < ENTER>. Vo- 
cê irá obter a seguinte saudação na tela: 


TURBO Pascal system Version 2.00A 
CP/M-80, Z80 

Copyright (C) 1983, 1984 by 

BORLAND Inc. 

Include error messages (Y/N)? 


Pode-se optar por mensagens de er- 
ro escritas por extenso (Y) ou simples- 
mente descritas pelos seus códigos (N). 
Se você estiver iniciando seu contato 
com o Pascal, digite Y e <ENTER>. 
O sistema apresentará um menu: 


Logged drive: 


Work file: 
Main file: 


Edit Compile Run Save 
eXecute Dir Quit compiler Options 


Text: 
Free: 








Para iniciar qualquer trabalho, você 
terá que digitar W seguido do nome de 
um arquivo. Se ele já existir no disque- 
te, o computador irá trazê-lo para a me- 
mória: caso contrário, criará um arqui- 
vo com esse nome. 

Suponhamos que você queira criar O 
arquivo exemplo7. Tendo escrito esse 
nome seguido de <ENTER>, entre no 
modo de edição digitando a letra E. 

No manual de instruções que acom- 
panha o compilador, você encontrará 
orientações para movimentar o cursor 
por meio das teclas. Recorra a ele para 
escrever seu programa. Ao terminar, 
saia do modo de edição usando o co- 
mando apropriado (veja manual), An- 
tes de tentar compilar o programa, guar- 
de-o no disquete digitando 5. 

Para compilar o programa, pressio- 
ne a tecla C. Caso haja algum erro, O 
compilador indicará em que posição ele 
ocorreu, Depois de corrigilo, tente 
compilar o programa novamente. Se O 
computador indicar que completou a ta- 
refa, execute o programa com X. 

Lembre-se de que cada declaração 
precisa ser seguida de um ponto e vir- 
gula, exceto quando depois dela houver 
um end. Uma instrução composta deve 
vir entre um begin e um end. Se você co- 
locar um ponto e vírgula imediatamen- 
te após um while, um repeat ou um for, 
o computador entenderá que aquele é O 
fim da declaração e ignorará os coman- 
dos seguintes a serem repetidos. 

















Se você deseja montar e controlar 
qualquer tipo de projeto — da 

reforma de um automóvel à compra de um 
imóvel —, utilize este programa 

para se organizar e economizar tempo. 


Algumas vezes temos que realizar ta- 
refas que incluem várias ações, cada 
qual exigindo um tempo diferente de 
execução, e todas dependendo do suces- 
so das etapas anteriores. Sem uma boa 
dose de organização e planejamento, é 
quase impossível saber quais etapas exe- 
cutar, e em que ordem. A situação fica 
ainda mais dificil quando há um prazo 
para o término da atividade. 

Se calcularmos o tempo de execução 
de todas as ações envolvidas, veremos 
que há sempre uma certa sequência de 
eventos que determina o tempo total do 
projeto. A essa segiência chamamos ca- 
minho critico. (Qualquer atraso ou 
adiantamento no caminho crítico se re- 
fletirá numa alteração do tempo toma- 
do pelo projeto. Por outro lado, uma 
atividade que não pertença a essa se- 
quência especial poderá ser atrasada sem 
causar alterações no tempo total. 











O cálculo do caminho crítico não é 
tão fácil se estivermos limitados ao pa- 
pel e caneta, mas, com o auxiho do com- 
putador e do programa que aqui forne- 
cemos, torna-se bem mais simples e rá- 
pido. O programa permite a construção 
de um banco de dados contendo todas 
as atividades, seu tempo de execução (ou 
estimativas, caso não se conheça o tem- 
po real) e a ordem em que elas deverão 
ser executadas. Baseado nessas informa- 
ções, calcula o caminho critico bem co- 
mo o tempo livre das atividades não- 
criticas (aquelas que não pertencem à se- 
quência especial). Esse último dado in- 
dica ao usuário por quanto tempo é pos- 
sivel interromper o projeto sem alterar 
seu prazo final. 

Para o cálculo do caminho critico, 
utilizam-se as técnicas de programação 
conhecidas como CPM (do inglês Criti- 
cal Path Method, Método do Caminho 
Crítico), CPA (do Inglês Critical Path 
Analysis, Análise do Caminho Critico) 
e PERT (do inglês Program Evaluation 
and Review Technigue, Técnica de Ins- 
peção e Estimativa de Projeto). 

Não só projetos empresariais, mas 
qualquer projeto, por menor que seja, 
pode ser avaliado pelo programa. 
Vamos tomar como exemplo um pro- 


ORGANIZAÇÃO 
DE PROJETOS 





CAMINHO CRÍTICO 
“REDE PERT 
ATIVIDADES, TEMPOS 
E EVENTOS 
CÁLCULOS 


jeto que envolve a coordenação de vá- 
rias etapas diferentes, muitas vezes sob 
prazos rigorosos: a compra de uma ca- 
sa. O diagrama da página 1452 mostra 
como deveria ser o fluxo PERT para a 
execução dessa tarefa. Os círculos assi- 
nalam os eventos, ou seja, momentos . 
entre atividades cujo tempo depende de 
outras. Eles marcam, assim, o início ou 
o fim de uma atividade. As atividades 
estão descritas ao longo das linhas que 
ligam os eventos, junto com as estima- 
tivas do tempo necessário, 

Até aqui, muitas atividades parecem 
incertas e várias linhas se cruzam, Em- 
bora o diagrama contenha toda a infor- 
mação necessária, ainda é difícil saber 
que atividades merecem prioridade. Não 
se pode garantir, também, que o proje- 
to seja concluido dentro do prazo esti- 
pulado. Além disso, à medida que avan- 
camos no projeto de aquisição da casa, 
é possível que surjam outros fatores ca- 
pazes de afetar as expectativas Iniciais, 
exigindo que o diagrama seja modifica- 
do e atualizado. 

Nosso programa se encarrega de to- 
das essas questões. Na primeira parte, 
apresentada a seguir, cuida do banco de 
dados das atividades; na segunda, cal- 
cula o caminho crítico. 








5 BORDER O: PAPER 4: INK O: 
CLS 

7 POKE 23658,8: POKE 23609, 
20 

10 CLS LET false=0: LET ma= 
100: LET me=100: LET mh=212: 


LET se=-l: LET fe=-1l: GCOSUB 
12: LET ck=false: LET aa-b: 
LET ee=0: GOTO 50 

12 LET 2279999: LET Eruecl: 
LET pS="introduza ": LET aS= 
atividade” 

14 DIM w$(8B5,32): LET w5S(1l)=" 
Nenhuma"+a5+"=PRECEDE o evenl 
o”: LET w$(2)=" EXCEDEU” 

16 LET w$(3)="VOCE NÃO PODE U 
SAR ESTE NUMERO ": LET wS$(4d)= 
ps+"texto para este(a) * 

18 LET wS (5) -aS+"REFERE A EVE 
NTO NAO DEFINIDO ” 

22 DEF EN a(x)=x*(xS0): 
DEF FN z(x)j=x* (x>0) 

26 DIM alma): DIM gima) 

30 DIM wma): DEF EN wix)=ABS 
x* (x<])+ABS (2-x)*(x21): 

DEF EN x(x)=x*(2.37572+x*xA ( 
15.9402-x*x* (1849. 744-x*4x* 
688.472)))/1.2066/ 


34 DEF FN IS(x)=(STRS (x)+" 
"It TO 6) 

36 DEF FN bix)=x-INT (x/256)* 

256 


38 DEF EN pS(x)="--"( TO INT 
((6-x)/2)): DEF FN q5(x)=" 
"( TO INT ((6-x)/2)) 

40 DIM e(me) 

42 DIM x(8) 


44 DIM s(mh): DIM f (mh): DIM 


wu tmb): DIM t(mh): DIM nétmh): 
DIM us (mh,20): DIM yCtmh): DIM 
z (mh) 


46 DIM p(mh): DIM q (mh) 

48 DEF FN u(x)=u(ABS x+ (x=0)) 
* (x>0) : RETURN 

50 CLS PRINT "l=define “;as 
'""2=apaga ";aS: PRINT "3I=deti 
ne evento”"'"4=apaga evento” 
60 PRINT "S5=salva no gravador 





"'"6=-=carrega do gravador” '"/= 
testa gravador"'"B=mostra det 
alhes” 

62 PRINT "9=SAIDA"'"lD=verifi 
ca e ordena a rede” 

. 64 PRINT "ll=calc com tempos 

medios” 

66 PRINT "12=calc com incerte 


zag”: PRINT 
70 INPUT 1: PRINT t: IF t=9 
THEN STOP 


12 IF t<l OR t>12 THEN PRINT 
*t=".1:" NÃO RECONHECIDO”: 
GOTO 114 
Zã IF t>10 AND NOT ck THEN 
PRINT "FACA VERIFICACAO DE DA 
DOS PRIMETRO”": GOTO 1]4 
76 IF aa=0 AND (127 OR t=5) 
THEN PRINT "IMPOSSIVEL - NÃO 
FOI INTRODUZIDA NENHUMA” ;asS: 
GoTo 114 
80 IF t>7 THEN 
B2 IF t=6 THEN 
=6 
84 IF t>4 THEN 
o arquivo:";: INPUT fS: 
ts: GoToO 100 
B6 LET fS-4S: IF t>2 THEN 
LET fS$="evento” 
88 PRINT pS;£S5;" numero”: 
PRINT "ou zero para sair "; 
90 INPUT u: PRINT u: LET us 
INT u: TF u=0 THEN GOTO 50 
92 IF u<l OR u>zz THEN PAINT 
w5(4): GOTO 88 
94 1F t>2 THEN LET u=-u 
“VA GOSUB 450: LET ck=false 
98 IF (t=2 08 t=4) AND (O=u(x 
) OR zz<ulx)) THEN PRINT "VO 
CE NUNCA USOU ESTE NUMERO” : 
GOTO 114 
100 GOSUB 20*(L=1)+100*L+900%4( 
t-10)*(t>10) 
L12 GOTO 50 
114 FOR t=1 TO 500: 
GoTo 50 
120 IF O<u(x) AND zz>2-u(x) 
THEN  GOSUB 942: GOSUB 932: 
GOTO 130 
122 1F aa-=ma THEN 
:£S: RETURN 


GOTO 100 


CLEAR LET É 


PRINT “Nome d 
PRINT 


NEXT E: 


PRINT w$(2) 


CTT TI CELL 


124 LET aasatl: LET a(laaj=x: 
LET ulx)=u 

130 PRINT wS$(4);£S;":";: INPUT 
us (x): PRINT uS(x): LET xa=x 
140 PRINT p$;"iniciar evento, 
tinalizar evento”;: INPUT s,f: 
PRINT 9;”" ":;:£: LET s=INT &: 
LET t=INT £ 

142 IF s<l OR g>zz OR f<l OR f 


>zz THEN PRINT w5(3): GOTO 
140 
150 LET u=-s: GOSUB 450: IF uí 


x)<0O THEN GOTO 156, 

152 IF ee=me THEN PRINT wS(2) 

“"eventos”: GOTO 140 

154 GOSUB 350 

156 LET a(xa)=x 

160 LET u=-f: GOSUB 450: 1F ul 

x)<Q0 THEN GOTO 166 

162 IF ees=me THEN PRINT w5S(2) 

"eventos": GOTO 140 

L64 GOSUB 350 

166 LET f(xa)=x 

170 PRINT p5S;"tempo provavel p 

ara executar ":: INPIIT E(xa): 

PRINT Lixa) 

172 IF L(xa)j<0O THEN PAINT "NA 

O PODE SEH FETTIO COM ESTA VELO 

CIDADE": GOTO 1/0 

L80 PRINT "Introduza eulimaLiv 

a de tempo com 90% de certez 

a": PRINT "Pode ser executado 

em ":: INPUT n(xa): PRINT níxa 

) 

182 IF níxa)l<t(xa) THEN PRINT 

"TSTO NÃO E COMPATTVEL COM O 
TEMPO PROVAVEL”": GOTO 170 

190 RETURN 

200 FOR b=1l TO aa: 

THEN LET a=b 

220 NEXT b: LET a(aj=a(aa): 

LET ulx)=zz+l: LET aa=aa-l: 

RETURN 

400 IF u(x)SO0 THEN 

GOSUR 933: GOTO 330 

310 IF ees=me THEN 

“ES: RETURN 

3]2 GOSUB 350 


[)id! 


IF x=a(D) 


GOSUB 946: 


PRINT w5 (2) 





5 CLEAR 

10 MA = 100:ME = 100:FA = 0:MH 

= 212: GOSUB 12:CK = FA: GOTO 5 

O 

12 TR = L:Z8 = <CHR$ (13):DOS = 
28 + CHARS (4):ZZ = 32766:0T5 

=  CHRS (J4) 


14 PS = "FORNECA ":AS = * ATIVI 

DADE ” 

16 DIM WS5(5):WS(1) = "NENHUMA" 
+ AS + ” PRECEDE EVENTO" :WS(2) 
= "EXCEDEU " 

L8 WS5(3) = "NAO PODE USAR ESTE 

NUMERO" :W5(4) = PS + “TEXTO PAR 

A ESTE(A)” 

20 WS(5) = ” REFERE A EVENTO NA 

O DEFINTDO ” 


22 UVEF FNA(X) =X * (X< 0): 
DEF EN Z(X) =X * (X 2 0) 

28 DIM A(MA),G(MA) 

30 DIM W(MA): DEF EN W(X) = 








ADS (X) * (X< = 1) + ABS lZ 
PIA) RR dd) 
32 DEF EN X(X) =X * (2.3/3/742 


XxX ]%+* (15.0402 HT A 
184.744 - X *H4 * 688.472))) / 
1.20667 
40 DIM E(ME) 

44 DIM S(MB),F(MH),UC(MH),T(MH) 

«N(MH) , US (MH), Y (MH), Z (MH) 

46 DIM P(MB),O (MB) 
48 DEF FN U(X) = U( ABS (X) + 

(X = 0)) * (X > 0): RETURN 
50 HOME PRINT TAB( 7);"MENU 

PRINCIPAL": PRINT PRINT "01 
= DEFINE";AS: PRINT "OZ - DELET 
A" ;AS: PRINT “03 = DEFINE EVENT 
O": PRINT "04 DELETA EVENTO” 
52 PRINT "05 = SALVA DADOS": P 
RINT "OG = CARREGA DADOS”: PRIN 
T "07 = DELETA ARQ DO DISCO": P 
RINT "08 = MOSTRA DETALHES" 

54 PRINT "09 = REINICIA”" 

56 PRINT "10 = VERIFICA E ORDE 
NA REDE” 
58 PRINT 
O MEDIA” 
60 PRINT 
EZAS”: PRINT 


62 


ne CALC COM DURACA 
"12 = CALC COM INCERT 
"13 = SAIDA PARA ” 


INVERSE 
NORMAL 
INVER 


IF KKS = "5" THEN 
PRINT “IMPRESSORA”: 
IF KKS < > "8º THEN 
PRINT "TELA": NORMAL 
64 PRINT "14 = TERMINA” 
66 PRINT : PRINT :T = O: 
"SUA OPCAO (1l-14) “;T 
68 IF T = 14 THEN INPUT 
CERTEZA (5/N)? ":;ANS: IF LEFTS 
(ANS,1). = "S” THEN HOME END 


69 IF YT 13 OR T = 14 THEN 10 
Õ 

7ê IF T 9 THEN 900 

za [IE T<IAORT> 13 THENRPER 
INT "CODIGO" ;T;"NÃO RECONHECIDO 
". GOTO 114 

76 IF T> 10 AND NOT (CK) THE 

N PRINT "USE OPCAO (10) PRIMEI 

RO”: GOTO 114 

78 IF AA - O AND (T> 7 ORT = 
5) THEN PRINT "IMPOSSIVEL - N 
ENHUMA" ;AS: GOTO 114 


63 
SE 


INPUT 


"TEM 


80 TFT > 7 THEN GIOO 

B2 TFT = 6 THEN CLEAR -DOS = 
CHARS (13) + CHAS (4):T = 6 

B4 1F T> 4 THEN HOME PRINT 
“FORNECA NOME DO ARQ ";: INPUT 
FS: GOTO 100 

86 FS = AS: IF T > 2 THEN FS = 

" EVENTO” 

BE HOME : PRINT P5;"NUMERO DO( 

AJ";FS: PRINT "OU ZERO PARA TER 

MINAR” 

90 INPUT U:U = INT (U): IFU 

= O THEN 50 


92 IFU<IORU>ZZTREN RPA 
WS$(3): FOR E = 1 TO 1000: N 
coTo BB 

94 IFTo> 4 THENU- 
GOSUB 450:CK = FA 
98 IF (T=20RTx=4) AND (O 

= U(X) OR ZZ < U(X)) THEN PRIN 
T "VOCÊ NUNCA USOU ESTE NUMERO” 


- AE 


GOTO 114 
100 IF KKS = "5" AND (T > 7 AN 
DT < 12) THEN PAINT DOS"PR$&1” 
101 HOME : ON T GOSUB 120,200, 
300,400,500,600,700,800,900,100 
0,2000,3000,960 


105 IF KKS = "9" AND (T > 7 AN 
DT < 13) THEN PRINT DOS"PRt O 
112 GoTo 50 

114 FORT = 1 TO 1000: NEXT 
GoTo 50 

120 IF O < U(X) AND ZZ > = U( 
X) THEN GOSUB 942: GOSUB 932: 
Goro 130 

122 IF (AA = MA) THEN PRINT W 
S(2);FS: RETURN 

l24 AA = AA + L:A(AA) = X:U(X) 
=U 

130 PRINT W$(4);FS: INPUT US(X 
J:XA = X 

140 PRINT PS;"EVENTO INICIAL , 


EVENTO FINAL”: INPUT S,F:5 = 
INT (S):F = INT (F) 

142 IFS<IORS>zZZo Fãs 
1 OR F > ZZ THEN PRINT W$(3): 
GOTO 140 


150 U = -— S: GOSUB 450: IF U(X 
) « O THEN 156 

152 IF EE = ME THEN PRINT WS( 
2); "EVENTOS": GOTO 140 

154 GOSUB 350 

156 S(XA) = X 

160 U = - F: GOSUB 450: IF U(X 


) « O THEN 166 

162 IF EE = ME THEN PRINT WS( 
2) ; "EVENTOS": GOTO 140 

164 GOSUB 350 

166 F(XA) = X 


170 PRINT P5S;"TEMPO PROVAVEL D 
E EXECUCAO”: INPUT T(XA) 

172 IF T(XA) < O THEN PRINT * 
MUITO RAPIDO !!”": GOTO 170 

180 PRINT "ESTIMATIVA COM 90% 
DE CERTEZA”: PRINT "PODE SER FE 
ITO EM": INPUT N(XA) 

1B2 IF N(XA) < T(XA) THEN PRI 
NT "NAO CONFERE COM O TEMPO PRO 
VAVEL”: GOTO 1/0 

190 RETURN 

200 FOR B = 1 TO AA: IFX=ãAaA( 


B) THEN A = B 


220 NEXT B:A(A) = A(AA) :U(X) = 
Z2 + L:AA = AA - 1: RETURN 
300 IF U(X) < O THEN PRINT “E 


VENTOS":KP = U(X): GOSUB 950: P 
RINT US(X): GOTO 330 

310 IF EÉ = ME THEN PRINT W5( 
2):;F5S: RETURN 

312 GOSUB 350 

330 PRINT W5(4);FS: 
)J:S(X) = 0: RETURN 
350 EE = EE + 1:E(EE) = 
= - 1:F(X) = O:U(X) = U 
360 T(X) = O:N(X) = O:US(X) =" 
"+: RETURN 

400 Z =X: FOR F = 1 TO EE: 


INPUT US(X 


K:S(X) 


IF 


E(F) = Z THEN E = F 

420 NEXT F:E(E) = E(EE):U(Z) = 
ZZ + 1L:EE = EE - 1: RETURN 

450 Z = U- INT O((U - 1) / MB) 
*MH:Y = 2:X = 0 

460 IF X = O AND (0 = U(Z) OR 


ZZ + 1 = U(Z)) THEN X = Z 

470 IFU = U(Z) THENX=Z: RE 
TURN 

480 1F Y = 1 ORU(Z)=bO THEN 
RETURN 

490 Z = Z+Y-MH* INT((Z+ 


VW MB2t=]+7T- MA 


INT ((Y + Y-—- 1) / MH): GOTO 4 
60 
500 HOME PRINT DOS"OPEN "FS 
505 PRINT DOS"DELETE “FS 
510 PRINT DOS"OPEN "FS 
515 PRINT DOS"WRITE “ES 
A20 PRINT MA;Z5S;ME;Z5:;MH;Z5;,AA 


;25:; EE; ZS:CK 


525 IF CK THEN PRINT SE;ZS;FEÊ 
530 FOR A = 1 TO AA:IX = A(A) 
545 PRINT X;Z5U(X) Z5S (X) Z&F (X) 
“ST(X) ZoON(X) ZSG (A) ZLSUS X) 

540 NEXT A 

“45 FOR E = 1 TO EE:X = E(E) 
550 PRINT X;4$SU(X) 255 (X) ZSF(X) 
£ST(X) ZSN(X) ZSUS (X) 

oo NEXT E 

560 FOR X = 1 TO MH: IF UCA) 
S2 + | THEN PRINT X 

565 NEXT x: PRINT O 

570 PRINT DOS"CLOSE “FS 

575 RETURN 


Pay 


4 MAXFILES=3 

6 OPEN "CRT:”" FOR OUTPUT ASt41 

8 OPEN "LPT:” FOR OUTPUT ASt42 
10 CLEAR 2000:MB=212:ME=100:MA= 
100:FA=0:GOSUB 20:CK=FA:-GOTO 14 

0 

20 Z2=9999: TA=-1:P$=" INTRODUZA 
":A$=" ATIVIDADE” :ES=CHRS (13) 
30 DIMWS (5) :WS(1)="NENHUMA" +AS+ 
” PRECEDE O EVENTO” :W5(2)=" EXCE 

DEU” 

40 W$(3)="VOCE NÃO PODE USAR ES 

TE NUMERO" :WS (4) =P$S+" TEXTO PARA 
ESTE(A) ” 

50 W5$(5)="REFERE A EVENTO NAO D 
EFINIDO” 

60 DEFFNA(X)=-X* (X<0) : DEFFNZ(X) 
=-R* (X>0) 

70 DIM A(MA),G(MA) 

BO DIM W(MA) :DEFFNW(X)=-ABS (X)* 
(X<=1)-ABS(2-X) *(X21) 

90 DFFNX(X)=X*(2.3/7572+K*X* (15. 
9402-X*X* (184.744-X*4*688.472)) 
1/1.20667 

100 DIM E (ME) 

110 DIM S(MHB),F(MH),U(MH),T(MHB) 
+N (MH), US (MH), Y (MH), Z (MB) 

120 DIM P(MH),OQ (MH) 

130 DEFFNU(X)=-U (ABS (X)- (X=0))* 
(X>0) : RETURN 

140 CLS:PR=1:LOCATE 12,1:PRINT” 
MENU PRINCIPAL”: PRINT"I=DEFINE” 
;A5S;"” OU EVENTO”: PRINT" 2=APAGA” 
;AS;” OU EVENTO” 

150 PRINT"3=SALVA DADOS” : PRINT” 
4=CARREGA DADOS” : PRINT" 5=IMPRIM 
E DETALHES” : PRINT"O=TERMINA” 
160 PRINT*7=VERIFICA E ORDENA A 
REDE” 

170 PRINT"B=CALC COM TEMPOS MED 








| 
| 


10S” 
180 PRINT"9=CALC COM INCERTEZAS 


190 TS=INKEYS:IF TS<"1” OR TS2>” 
9" THEN 190 

200 T=VAL(TS): PRINT T 

210 IF T>7 AND NOT(CK) THEN PRI 
NT"FACA VERIFICACAO (7) PRIMEIR 
0” :GoTo 380 

220. IF AA=0 AND (T>40 OR T=3) T 
HEN PRINT" IMPOSSIVEL - NAO FOI 

INTRODUZIDO” ;AS$:GOTO3B0 


230 IF T>4 THEN 350 

240 IF T=á4 THEN CLEAR 2000:T=4 

250 IF T>2 THEN PRINT"NOME DO A 

RQUIVO”: INPUTFS:GOTO 350 

260 CLS:PRINT A$S;" OU EVENTO (A 

VAI + 

270 TS=INKEYS:IF TS<>"A” AND TS 

<>"E” THEN 270 

280 PRINT TS:IF TS="A” THEN F53= 

AS ELSE F5=" EVENTO” 

290 PRINT:PRINT PS;F5S;”" NUMERO” 
“PRINT"OU ZERO PARA SAIR” 

300 INPUT U:U=INT(U):IF U=D THE 

N 140 

310 IF U<li OR 

S(3):GoTO 280 

320 IF T5="E” THEN U=-U 

330 GOSUB 700:CK=FA 

340 IF(T=2 OT T=4)AND(O=U(X) OR 
ZZ<U(X) THEN PRINT"VOCE NUNCA 

USOU ESTE NUMERO” :GOTO 380 


350 ON T GOSUB 390,590,750,8930, 

890,960,1070,1550,1660 

360 IF T<3 THEN 290 

370 GOTO 140 

380 FOR T=1 TO 1000:NEXT T:GOTO 
140 

390 IF FS<>AS THEN 620 

400 IF O<U(X) AND ZZ>=U(X) GOSU 

B 1030:GOSUR 1000:GOTO 440 

410 IF AA=MA THEN PRINTWS (2) ;F5 
: RETURN 

420 AA=AA+I:A(AA)=X:U(X)=U 

430 PRINT W$(4);FS: INPUT US(X): 

KA=X 

440 PRINT PS;" INICIAR EVENTO, F 

INALIZAR EVENTO": INPUT S,F:S=IN 

T(S):F=INT(F) 

450 IF S<l OR S>ZZ OR F<1l OR F> 

ZZ THEN PRINT W5(3):GOTO 440 

460 U=-S:GOSUB 700:IF U(K)<O TH 
EN 490 

470 IF EE=ME THEN PRINT W$(2);" 

EVENTOS" :GOTO 440 

480 GOSUB 660 

490 S(XA)=X 

500 U=-F:GOSUB 700:IF U(X)<O TH 

EN 530 

510 IF EE=ME THEN PRINT WS(2);" 

EVENTOS" :GOTO 440 

520 GOSUB 660 

530 F(XA)=X 

540 PRINT PS;"TEMPO PROVAVEL PA 

RA EXECUTAR”: INPUT T(XA) 

550 IF T(XA)J<O THEN PRINT"NAO P 
ODE SER FEITO COM ESTA VELO 

CIDADE":GOTO 540 

560 PRINT"INTRODUZA ESTIMATIVA 

DE TEMPO COM 90% DE CERTEZA”: 

PRINT"PODE SER FEITO EM": INPUT 


U>ZZ THEN PRINT W 


N(XA) 

S70 IF N(KA)<T(XA) THEN PRINT * 

NAO E COMPATIVEL COM O TEMPO 
PROVAVEL":GOTO 540 

580 RETUAN 

10 PCLEAR 1:CLEAR 2000:MH=212:M 

E=100:MA=100:FA=0:GOSUB 20:CK=F 

A:GOTO 140 

20 22=9999: TR=-1: PS=" INTRODUZA 
":.A$=" ATIVIDADE": ES=CHRS (13) 
30 DIMWS (5) :W5 (1) ="NENHUMA"+AS+ 
” PRECEDE O EVENTO" :W5 (2) =" EXCE 

DEU” 

40 WS(3)="VOCÊE NAO PODE USAR ES 

TE NUMERO" :WS (4) =PS+" TEXTO PARA 
ESTE(A) " 

S0 WS (5)="REFERE A EVENTO NÃO D 
EFINIDO" 

60 DEFFENA(X)=-X* (X<0) :DEFFNZ(X) 
=-H*(X>0) 

70 DIM A(MA),G (MA) 

80 DIM WMA) :DEFFNW(X)]=-ABS (X) * 
(X<=1)-ABS(2-X)* (K>1) 

90 DFENX(X)=K*(2.37572+X*X" (15. 
9402-X*x+* (184.744-X*X+688.472)) 
1/1.20667 

100 DIM E(ME) 

110 DIM S(MH).F(MH),U(MH),T(MB) 
N (MB), US (MH), Y (MH), 2 (MH) 

120 DIM P(MH),O (MH) 

130 DEFENU(X)=-U(ABS(X) 
(X>0) : RETURN 

140 CLS: PR=0: PRINT €8,"MENU PRI 
NCIPAL”: PRINT" L=DEFINE";AS;,”" OU 
EVENTO": PRINT" 2=APAGA";AS;" OU 
EVENTO” 

150 PRINT"3=SALVA DADOS": PRINT” 
4=CARREGA DADOS": PRINTº5S=IMPRIM 
E DETALHES": PRINT" 6=SAIDA" 

160 PRINT"7=VERIFICA E ORDENA A 
REDE” 

170 PRINT"8=CALC COM TEMPOS MED 
108" 

180 PRINT"9=CALC COM INCERTEZAS 
".PRINT"?"; 

190 TS=INKEYS:IF T5<"1”" OR TS>" 
9” THEN 190 

200 T=VAL(TS): PRINT T 

210 IF T>7 AND NOT(CK) THEN PRI 
NT"FACA VERIFICACAO (7) PRIMEIR 
o”:GoTo 380 

220 IF AA=O0 AND (T>40 OR T=3) T 
HEN PRINT"IMPOSSIVEL - NÃO FOI 
INTRODUZIDO";AS:GOTO3B80 

230 IF T>4 THEN 350 

240 IF T=4 THEN CLEAR 2000:T=4 
250 IF T>2 THEN PRINT"NOME DO A 
ARQUIVO": INPUTFS:GOTO 350 

260 CLS:PRINT AS;”" OU EVENTO (A 
FÊ) ?P”; 

270 TS=INKEYS:IF TS<>"A” AND TS 
<>"E” THEN 270 

280 PRINT TS:IF TS="A” 

AS ELSE F5=" EVENTO” 
290 PRINT:PRINT PS;FS;" NUMERO” 


(X=0))* 


THEN F5S= 


“+ PRINT"OU ZERO PARA SAIR” 


300 INPUT U:U=INT(U):IF U=0 THE 
N 140 
310 IF U<l OR U>ZZ THEN PRINT W 





S(3) :GOTO 280 

320 IF T$="E” THEN U=-U 

330 GOSUB /00:CK=FA 

340 IF(T=2 OT T=4)AND(0O=U(X) OR 
ZZ<U(X) THEN PRINTOVOCE NUNCA 

USOU ESTE NUMERO” -GOTO 380 

350 ON T GOSUB 390,590,750,890, 

B90,960,1070,1550,1660 

360 IF T<3 THEN 290 

370 GOTO 140 
380 FOR T=1l TO 
140 

390 IF FS<>AS THEN 620 

400 IF O<U(X) AND ZZ>=U(X) 

B 1030:GOSUB 1000:G0TO 430 
410 JF AA=MA THEN PRINTWS(2Z);FS 
: RETURN 

420 AA=AA+rL:A(AA)=K:U(X)=U 

430 PRINT W5(4); FS: INPUT US(X): 
HA=K 

440 PRINT P5;" INICIAR EVENTO, F 
INALIZAR EVENTO”: INPUT S,F:5"1N 

T(S) :F=INT(E) 

450 IF S<l OR S>ZZ OR F<l OR F> 
ZZ THEN PRINT WS5(3) :GOTO 440 
460 U=-S:GOSUB 700:IF U(A)<O TH 
EN 490 

470 IF EE=ME THEN PRINT WS(2);7 
EVENTOS" :GOTO 440 

4B0 GOSUB 660 

490 S(XA)J=k 

500 U=-F:GOSUB 700:IF U(X)<O TH 
EN 530 

510 IF EE=ME THEN PRINT WS$(2);7 
EVENTOS" :GOTO 440 

520 GOSUB 660 

230 F(XA)=k 

540 PRINT P$;"TEMPO PROVAVEL PA 
RA EXECUTAR”: INPUT T(XA) 

550 IF T(XA)J<O THEN PRINT'NAO P 
ODE SER FEITO COM ESTA VELO 

CIDADE" :GOTO 540 

560 PRINT"INTRODUZA ESTIMATIVA 

DE TEMPO COM 90% DE CERTEZA”: 
PRINT"PODE SER FEITO EM": INPUT 

N(XA)- 

570 IF N(XA)J<T(XA) THEN PRINT ” 
NAO E COMPATIVEL COM O TEMPO 
PROVAVEL":GOTO 540 

580 RETURN 


L1000:NEXT T:GOTO 


GOSU 


PLANEJAMENTO DA REDE PERT 





Antes de usar o programa para ava- 
liar um projeto, você terá que dividi-lo 
em atividades individuais e estimar O 
tempo de execução de cada uma delas. 
Para isso, o mais conveniente, como já 
vimos, é desenhar um esquema de blo- 
cos: a rede PERT. 

À medida que for desenhando o dia- 
grama, descreva as atividades ao longo 
das linhas de conexão entre eventos. 
Dentro dos círculos, coloque a descri- 
ção dos eventos. Se estes forem apenas 
passos intermediários entre atividades, 
não é necessário atribuir-lhes nomes es- 
pecíficos. 

A versão do programa para o Spec- 
trum permite o uso de até vinte caracte- 





res por evento ou atividade; nos demais 
micros, podem-se utilizar 255 caracteres. 
Entretanto, dê preferência a títulos su- 
cintos, para não sobrecarregar a memó- 
ria disponível. 

Se você tem uma noção mais ou me- 
nos precisa da duração de cada ativida- 
de, escreva esse valor no diagrama. Pos- 
teriormente, veremos como estimar Os 
tempos. Lembre-se, porém, de que a 
unidade de medida de tempo escolhida 
(hora, dia, semana etc.) deve ser sem- 
pre a mesma em toda a rede. 

O programa só funcionará correta- 
mente se a rede for viável do ponto de 
vista lógico — deve ter apenas um pon- 
to de partida e um de chegada, e não 
formar laços ou caminhos circulares. 

O passo seguinte ao desenho da rede 
PERT é a numeração de todas as ativi- 
dades e eventos e sua introdução no pro- 
grama. A ordem dos números não é im- 
portante, mas o computador precisa de- 
les para trabalhar. Um método bastan- 
te simples consiste em numerar os even- 
tos de dez em dez, como se faz com um 
programa em BASIC — o que permite 
inserir números extras entre os já exis- 
tentes, se for necessário. 

Quando você for definir os eventos 
e as atividades, o computador pedirá o 
número e a descrição de cada um deles, 
além de uma estimativa do seu tempo 
médio e do seu tempo pessimista (aque- 
le que conta com 90% de possibilidade 
de não ser ultrapassado). 

Na vida real, raramente podemos cal- 
cular com precisão o tempo que levare- 
mos para realizar uma atividade — mes- 
mo que a tenhamos executado muitas 
vezes. Entretanto, não é dificil estimar 
sua duração média, bem como sua du- 
ração aproximada. Isso é tudo o que o 
programa exige em termos de estimati- 
va de tempo. No entanto, como você ve- 
rá, os cálculos que ele faz não são tão 
simples, pois devem levar em conta qua- 
tro diferentes situações. 

A primeira situação é aquela em que 
estamos absolutamente seguros quanto 
ao tempo que uma certa atividade leva- 
rá. Por exemplo, se as instruções para 
a construção de uma casa recomendam 
que deixemos o cimento secar por 48 ho- 
ras, é exatamente isso que vamos fazer! 
Nesse caso, ao usar o programa, deve- 
mos indicar o mesmo valor para o tem- 
po médio e o pessimista, 

A segunda situação ocorre quando es- 
tamos razoavelmente seguros sobre a du- 
ração de determinada atividade. Sabe- 
mos, por exemplo, que uma viagem en- 
tre as cidades de São Paulo e Campinas, 
de automóvel, demora cerca de 90 minu- 
tos, porque já a repetimos muitas vezes, 
sem observar grandes variações (mais ou 


menos 10%, devido a eventuais dificul- 
dades de trânsito). Portanto, entramos 90 
minutos como tempo médio, e 100 mi- 
nutos como tempo pessimista. Essa si- 
tuação corresponde à curva conhecida 
como curva normal ou gaussiana. 

A terceira situação é a que chamamos 
“espere até acontecer”. Por exemplo: 
você só terá a certeza de que a reforma 
no telhado foi bem feita quando come- 
çar a chover. Aqui, O tempo pessimista 
é cerca de 2,5 vezes maior que o tempo 
médio. Este pode ser obtido a partir do 
número de dias de chuva naquele mês 
específico. 

A quarta e última situação correspon- 
de ao tempo do “tudo ou nada”. É mui- 
to improvável, por exemplo, que uma 
determinada peça do carro quebre, mas, 
se isso ocorrer, O veiculo ficará na ofi- 
cina durante dez dias. Nesse caso, tome 
o valor máximo (dez dias) como o tem- 
po pessimista, e a média aritmética (10 
vezes 1/100, ou 1/10 de dia) como o 
tempo médio. 

Não é necessário indicar ao micro- 
computador o gráfico em que se encai- 
xa cada atividade. A máquina simples- 
mente toma as duas estimativas de tem- 
po, e efetua os calculos. Se a diferença 
entre os dois valores for de O a 30%, ele 
usa a curva gaussiana; se for de 30 a 
130%, usa uma curva gaussiana modi- 
ficada. Por outro lado, se o valor da mé- 
dia estiver entre 130 e 300%, o progra- 
ma recorre à curva exponencial e, se es- 
liver acima dessa porcentagem, utiliza 
a curva bimodal. 

Depois de entrar todas as atividades 
e suas respectivas estimativas de tempo, 
você deverá entrar os eventos. Para isso, 
basta digitar o número e a descrição de 
cada evento no diagrama. Se você come- 
ter algum erro, chame as opções de apa- 
gamento ou de modificação de eventos 
ou atividades. 

A informação entrada no computa- 
dor pode ser exibida em vários tipos de 
tabela. A opção “Mostre Detalhes" 
mostrará uma lista de tudo o que foi en- 
trado. Se você tem uma impressora, po- 
derá também obter uma cópia em papel. 


CONSISTÊNCIA DE DADOS 





Antes que o computador prossiga 
com os cálculos, é necessário checar se 
há consistência lógica na rede entrada. 
Se esta contiver caminhos circulares, O 
programa cairá em uma alça sem fim de 
cálculos e, eventualmente, apresentará 
um defeito de execução. 

Escolha a opção de verificação e ob- 
serve o resultado. Se tudo estiver bem, 
o programa imprimirá os números dos 


eventos de início e de fim. Entretanto, 
se encontrar alguma inconsistência na 
rede, emitirá uma mensagem de erro, 
identificando caminhos circulares ou in- 
terrupções. 


O CAMINHO CRÍTICO 


Finalmente, selecione a opção para 
calcular o caminho crítico. Existem duas 
alternativas: a primeira usa o tempo mé- 
dio de cada atividade, e a segunda, o 
tempo incerto (pessimista). Peça antes 
a primeira alternativa. 

O video mostrará todas as atividades, 
seu número de código e descrição. Em 
seguida, dirá quando cada uma deve ser 
iniciada e concluída, se existe alguma 
folga, e se a atividade é critica — ou se- 
ja, se está no caminho crítico, com fol- 
ga igual a zero. 

O tempo é expresso na mesma uni- 
dade que foi entrado. Assim, se você 
usou dias, todos os tempos irão se refe- 
rir a dias, contados a partir do evento 
inicial da rede. Suponhamos que a ta- 
bela indique que a atividade 3 deve co- 
meçar no dia 6, terminar no dia 10, e 
tem uma folga de dois dias. Você pode- 
rá começar aquela atividade no mínimo 
seis dias depois de iniciado o projeto, 
com uma tolerância de dois dias (ou se- 
ja, se você atrasar a atividade até o dia 
5, O tempo total do projeto não será al- 
terado). 

As atividades que têm folga zero de- 
vem começar exatamente no dia indica- 
do; caso contrário, haverá um atraso no 
projeto. Se isso ocorrer, você precisará 
recalcular toda a rede, com a nova esti- 
mativa para a atividade ou atividades in- 
fratoras. 

Se a maioria dos tempos que você en- 
trou são incertos, € o tempo pessimista 
é muito distinto do médio, use a segun- 
da opção de cálculo, pois o caminho 
crítico será diferente. 

Quando você escolhe essa opção, o 
computador considera cada atividade e, 
usando o gráfico de distribuição mais 
apropriado, seleciona um tempo ao aca- 
so, dentro dos limites propostos. A par- 
tir desse tempo, ele calcula o caminho 
crítico para toda a rede, exatamente co- 
mo na opção anterior, e armazena os va- 
lores de início e de folga das atividades. 
O processo se repete 44 vezes: em cada 
uma delas um novo número aleatório é 
escolhido para as atividades incertas. As 
45 repetições (todas são exibidas na te- 
la) proporcionam uma amostra razoá- 
vel para a derivação dos valores médios 
de tempo. 

Os tempos de início e fim do projeto 
correspondem à média de 45 repetições 








ao acaso: portanto, são bastante confiá- 
veis. A folga média das atividades não 
críticas também é indicada. 

Os valores críticos mostram a porcen- 
tagem da participação de certa ativida- 
de no caminho crítico — 100% signifi- 
ca que a atividade será sempre critica; 
0%, que ela nunca é crítica. 

O último valor mostra o desvio pa- 
drão do tempo de folga, indicando a va- 
riação possível da folga e, também, a 
confiabilidade da estimativa. Por exem- 
plo, se há uma folga de 1,5 dia e o des- 
vio é igual a 1, a folga pode variar en- 
tre 0,5 dia e 2,5 dias. Nesse caso, con- 
clui-se que a folga é pouco confiável. 
Ao contrário, um desvio padrão de 0,1 
mostra que o valor atribuído à folga é 
bastante confiável. 


330 PRINT w$(4);£S;":";: INPUT 
us (x): PRINT uS(x): LET s(x)= 
O: RETURN 


LET el(ee)=x: 
LET u 


350 LET eceree+l: 
LET s(x)=-1L: LET t(x)=0: 
(x)=u 


4160 LET t(x)=0: LEU n(x)=0: 


LET uS(x)="": RETURN 
400 LET z=x: FOR f=1 TO ee: IF 
e(t)j=z THEN LET ef 


420 NEXT €£: 
LET ulz)=z2+1: 
RETURN 
480 LET z=u-INT ((u-1)/mh)*mh: 
LET v=2: LET x=0 
460 TF x=0 THEN 
gz+l=u(z) THEN 
470 IF u=utlz) 
RETURN 
asso IF y=L OR 0-=u(x) 
RETURN 
490 LET z=z+y-mh*INT 
mh): LET yc=y+ty-mhAINT 
imh): GOTO 460 
500 LET x(1l)=ma: LET x(Z)=me: 
LET x(3)-mh: LET x(4)-aa: LET 
x(5)=ee: LET x(6)=ck: LET x(/) 
=5e: LET x(8)=te: PRINT “press 
vone <ENTER> dez vezea": SAVE 
Es+"x" DATA x(): FOR x=L TO 
100: NEXT x 
S1I0U SAVE tõ+"a” 
t5+"e” DATA el): 
DATA f(): SAVE £$+"q” DATA q() 
SAVE tS+"n” DATA nt): SAVE 
fs+"s”" DATA s(): SAVE ÉES+"E” 
DATA L(): SAVE tS+"u” DATA ul) 
SAVE tS+"uS” DATA uS(): 
RETURN 
600 LOAD tS+"x" DATA x(): LET 
ma=x(L): LET mesx(2): LET mh=x 
(3): LET dax(4): LET ce=x(io): 
LET ne=x(/): LET 
GOSUB 12 
DATA a(): LOAD 
LOAD £S+"£" 
LOAD £S+"q" DATA q() 


LET e(e)-e(ee): 
LET ees=ee-l: 


IF U=ulz) OR 
LET X=E 

THEN LET x=2z: 
THEN 


((utyv-1L)/ 
((ytyo-l) 


DATA a(): SAVE 
SAVE fS+"t” 


LET ck=x (6): 
fe-x(B): 
610 LOAD E5+"a” 
fS+"e” DATA e(): 
DATA E(): 





- LOAD tS+"n" DATA n()J: LOAD 
ES+"s" DATA 5(): LOAD £S+"L” 


DATA t(): LOAD €5+"u” DATA ul) 
- LOAD fS+"uS" DATA uS(): LET 
talse=0: RETURN 


700 LET x(L)j=ma: LET x(2)=me: 
LET x(3)=mh: LET x(4)=aa: LET 
x(5)=ee: LET x(6)=ck: LET x(7) 
=ge: LET x(B)=fe: VERIFY £S+"x 
" DATA x() 
710 VERIFY f£S+"a” DATA a(): 
VERIFY fs+"e” DATA e(): VERIFY 
fS+"€" DATA f(): VERIFY fS+"q” 
DATA q(): VERIFY f$+"n” DATA n 
(): VERIFY €S+"9” DATA s(): 
VEHNIFY ES+"L” DATA L(): VERIFY 
fts+"u” DATA ul): VERTFY fS+"us 
" DATA uS(): RETURN 
800 GOSUB 942 
810 FOR a=1 TO aa: 
GOSUB 932 
A20U LET y=v+lL+(LEN uS (x) 24): 
IF v>20 AND at<aa THEN GOSUB 
940: GOSUB 942 
B30 NEXT a: GOSUB 940 
Ban GOSUB 946: FOR e=] TO ee: 
LET x=e (e): GOSUB 993 
850 LET y-y+L+(LEN uS(x)24): 
IF v>20 AND ecee THEN  GOSUB 
940: GOSUB 946 
860 NEXT e: GOTO 940 
942 PRINT EN IS(FN uls(x))):;EN 
IS(FN u(f(x)));FN IS(tix));EN 
IS(n(x));ABS u(x);" "iustx): 
RETURN 
933 PRINT ABS u(x) uS(x): 
RETUAN 
y40) PRINT "pressione <ENTER> Pp 
ara sair”: INPUT £S: CLS 
RETURN 
942 CLS PRINT "INTCI FINAL T 
EMPO 90% CODIGO TEXTO” 
944 PRINT "FINAL INICI PROVL E 
STIM ": LET y=3: RETURN 
v46 PRINT "CODIGO”","TEXTO”: 
RETURN 
948 PRINT "PREV FINAL MIN 
". LET y=3: RETURN 
1000 LET ck=true: FOR a=l TO aa 
: LET x=ala) 
1020 LET z=s(x): IF s(z)S0 OR z 
z<u(lz) THEN PRINT ulx);w$(5)ju 
(z): LET ck=false 
1030 LET z=f(x): IF 9g(z)S0 OR z 
z<utz) THEN PRINT ulx);w5(5);u 
(2): LET ck=-false 
1040 NEXT a: IF ck=false THEN 
GOTO 1750 
1050 LET e=l 
1060 LET z=e(e): IF B(z)<O THEN 
GOSUB 400: IF e<=ee THEN GOT 


LET x=at(a): 


MAX 


O 1060 

1070 LET e=e+1l: IF e<=ee THEN 
GOTO 1060 

1080 FOR e=1 TO ee: LET z=e(e): 


LET s(z)=0: LET f(z)=0: NEXT e 
1082 FOR a=l TO aa: LET x=ata): 
LET s(f(x))=x: NEXT a 
1090 LET se=0: FOR e=1 TO ee: L 
ET z=e(e): IF s(z)20 THEN GOTO 
1096 
1092 IF se=0 THEN LET se=z: GO 
TO 1096 





h THEN PRINT wvwS(Ll);u(se): 


VER ER SS 0 ES GS 1 


IF se<=m 
LET 


1094 PRINT w5(1);u(lz): 


se=mh+1 

1096 NEXT e: IF se=0 THEN PRIN 

T "TODOS OS EVENTOS TEM" ;aS;” P 

RECEDENDO”" 

1098 IF se=0 OR se>mh TREN GoT 

O 1750 

1100 FOR e=l TO ee: LET z=ele): 
LET t(z)=0: LET n(z)=0: NEXT e 
: LET t(se)=l 

1110 LET last=l: FOR c=2 TO ee+ 
4. TF lagt<>c-l THEN GOTO 1170 
1120 FOR a=1l TO aa: LET x=ala): 
LET v=a (x): IF t (y)<>e-1 THEN 
GoToO 1160 

1130 IF v=f(x) THEN GOSUR 1200 
« GOTO 1160 

1140 IF v<>se THEN 
GOTO 1130 

1150 LET v=f (x): LET s(yv)=s(x): 
LET E(aly))=y: LET t(y)-c: LET 
fe=y: LET last=c 

1160 NEXT a 

1170 NEXT c: PRINT “evento 1n1ic 
jal=";u(se) "evento EFinal="julf 
e) 

1180 FOR e=1 TO ee: LET y=e(e) 
1190 IF £(y)=0 AND vy<>te THEN 
PRINT u(y):"NAO CONECTADO AO EV 
ENTO FINAL”: LET ck=false 


LET y=s iv): 


1192 NEXT e: IF ck THEN GOTO 1 
300 

1194 GOTO 1750 

1200 CLS PRINT "EXISTE O SEGU 


INTE LOOP”: PRINT "EVENTOS...”: 
LET xa=a(a) 

1210 LET x=f (xa): PRINT ulx): L 
ET v=s (xa): PRINT uly) 

1220 LET v=s(y): PRINT ulv): IF 
yv<>x THEN GOTO 1220 


1230 RETUBN 


1300 LET k=1: LET ak=aa: IF aas= 
1 THEN LET k-0 

1310 LET ak=INT ((laktk)/2): IF 

ak=D THEN GOTO 1500 

1320 LET k=0: FOR acak+1 TO aa: 
LET b=a-ak: LET x=a(a): LET y= 


a(tb): LET xe=s(x): LET ve-s (ly) 
1330 IF t(ve)jtyve/zz<-L (xe) txe/Zz 
2 THEN GOTO 1360 


1340 LET ala)=y: LET alb)=a: LE 
T k=1 


1360 NEXT a: GOTO 1LJ1U 


1500 LET n(te)=last: FOR d-last 
-1 TO 1 STEP -1 
1520 FOR a=lL TO aa: LET x -da(a): 


LE nlft(x))<>d+1l THEN GOTO L&6 

Ú 

1550 LET vy=m (x): 
LET n(v)=d 
1460 NEXT a: 
1600 FOH acl 

aj: NEXT a: 
IF aarl THEN 
1610 LET ak INT (tak+k)/2): [LF 

ak=0 THEN oTo 1700 

1620 LET k=U: FOR a=ak+l TO aa: 
LET b=b-ak: LET x-g(a): LET y= 


LET t(y)=tix): 


NEXT d 

TO aa: LET gla)-al 
LET k=1: LET ak=aa: 
LET k=0 


a(b): LET xe=f(x): LET ve=Ê (yv) 
1630 IF n(ve)j+yc/ze<=n(ixe)txe/z 
2 THEN GOTO 1660 


1640 LET g(ta)=y: LET qlbj=X: LÊ 

















| ES 
| 

“36 APLICAÇÕES 36 

| 

| | 


T k=] 
1660 NEXT a: 
1700 LET ck=true: RETURN 
1750 LET ck=false: PRINT AT 21, 
8; "QUALQUER TECLA PARA CONTINUA 


GOTO 1610 


R”: PAUSE O: RETUBN 

2000 FOR a=l TO aa: LET x=ala): 
LET z(tx)=t(x): NEXT a: GUBUB 2 
100 


2020 FOR a=) TO aa: LET xcala): 
LET vix)=(z(f(x))i-yigs(x))=4(x) 
J*100: NEXT a 
2030 FOR b=1 TO aa STEP 5: CLS 
FOR a=b TO aatFN a(bt4-aa): L 
ET x=ala) 
2040 PRINT 
J( TO 16) 
2050 LET c=y(s(x)): 
))j: PRINT “pode iniciar 
eve terminar ";d 
2060 PRINT "Lempo livre "i:d-c-z 
(x);” (critico ":;vlx):;"t)": IF 
t=12 THEN PRINT "desvio=":;q(x) 


as" "Peulx)j="us (a 
LET d=z(£(x 
Cred 


2070 PRINT : NEXT a: GOSUB 940: 
NEXT b: RETURN 
2100 FOR e=1 TO ee: 
=0: NEXT e 
2110 FOR a-l TO aa: LET x=ala): 
LET vy(E(x))=v(Ê(X))+FN z(ylg(x 
J)-v(t(x)j+z(lx)): NEXT a* 
2120 FOR e=1 TO ee: LET zl(ete)) 
=y (fe): NEXT e: FOR a=aa TO 1 5 
TEP -1: LET x=qg(a) 
2130 LET z(s(x))=z(s(x))J+EN alz 
(£t(x))-z(g(x))-z(x)): NEXT a: BR 
ETUBN 
3000 
LET 
x)=0: 
3020 
LET 
3030 
acl TO aa: 
XT a 
3040 FOR n=0 TO 4 STEP 2: CLS : 
PRINT "CASO & ";mtn/2;" EM 45” 
3050 FOR as=l TO aa: LET x=a(la): 
LET Lx=L(x): TÊ tx=0 THEN LET 
z(x)-D: GOTO 3080 
34052 LET nxe=n(x): TF nxstx THEN 
LET z(x)=tx: GOTO 3080 
s044 LET w EN wlw(a) tn/3): TF n 
x>-Lx*3 THEN LET zitx)i=n(x)*(w< 
tx/nx): GOTO 3080 


LET v(e(e)) 


LET x=ala): 
LET vi 


FOR arl 
p(x)=0: 
NEXT a 
FOR ezl 


TO aa: 
LET qg(x)=0: 


TO ee: LET z=ele): 
p(z)=-0D: LET qltz)=0: NEXT e 
FOR m=-1 TO 43 STEP 3: FOR 
LET w(a)=2*RND-1: NE 


3060 IF nx>tx*2.394 THEN LET gl 
x)--Lx*LN w: GOTO 30B0 

JU7Z0 LET w=FN x(w-.h): LET z(x) 
=ABS (tx+w* (nx-tx)) 

3080 NEXT a 

3090 GOSUB 2100 

34100 FOR a=l TO aa: LET x=ala): 


LET z=2(t(x))-v(g(x))-z(5) 
3110 LET p(x)=pix)+z: LET q(x)= 
qix)+z*z: LET v(x)-y(x)+(z<1l.e- 
6): NEXT a 
3120 FOR e-l TO ee: 

LET plz)=piz)*v(z): 
(z)+z(z): NEXT e: NEXT n: 
m 
3200 FOR e=l TO ee: LET z=e(e): 

LET y(z)=VAL (EN IS(p(z)/45)) 
3210 LET z(z)=VAL (EN TS(q(z)/4 


LET z=oc(e): 
LET a(z)-q 
NEXT 





5)): NEXT e 

3220 FOR a=l TO aa: LET x-ala): 
LET v=y (x): LET yix)=-VAL ((STR 

$ (vy/45*100)+" "3 ( TO 4)) 

3230 IF píx)<l.e-2 THEN LET pl 

x) =0) 

3240 LET z-(45-v)+l.e-9: LET z( 

nx)=z(f(x))-yv(s(x))-VAL (FN 1S(p 
(x) /2)) 

3250 LET q(x)=SOR ABS ((qlx)-pí 

x)*p(x)/z)/((z-1)+.)e-9)): IF q 
(x)<1.e-6 THEN LET q(x)r0 

3260 NEXT a: GOTO 2030 


590 IF FS<>AS THEN 680 

600 FOR B=1l TO AA:IF X=A(B) THE 

N A=B 

610 NEXT B:A(A)J=A(AA) :U(X)=Z2+1 
:AA=AA-1: RETUAN 

620 IF U(X)<O GOSUB 1050:PRINT 

USING (ttttt  ";ABS(U(X));:PRINT 
US (X) :GOTO 650 

630 IF EE=ME THEN PRINT W5(2);F 

S: RETURN 

640 GOSUUB 660 

650 PRINT WS(4);FS:INPUT US(X): 

8 (X) =0:RETUAN 

660 EE=EE+L:E(EE)=X:S(X)=-1l:F(X 
)J=0:U(X)=U 

670 T(X)=0:N(X)=0:US(X)="":RETU 

RN 

680 Z=X:FOR F=l TO EE:IF E(Fj=Z 
THEN Es=F 

690 NEXT F:E(E)J=E(EE) :U(Z)=Z2+1 
: EE=EE-1: RETURN 

700 Z=U-INT((U-1)/MH)*MH:Y=2:K= 
O 

P10 IF X=0 
) THEN X=2Z 
720 IF U=U(Z) THEN X=Z:RETURN 
730 IF Y=1 OR O=U(Z) THEN RETUR 

N 

740 Z=Z+Y-MHX*INT((Z+Y-1)/MH):Y= 
Y+Y-MBXINT((Y+Y-1)/MH):GOTO 170 
750 OPEN "0" ,4-1,FS:PRINT -1L,M 

AJME;MH;AAGEE;CK 

760 IF CK THEN PRINTA4A-IL,SE;FE 
70 FOR A=1 TO AA:X=A(A):PRINT 
1, X;UCK) SM) FECX);TAXD ENC); 

C(A);US(X) :NEXT A 

780 FOR E=1 TO EE:Z=E(E):PRINTA 
“LL, 2:U(Z) ;;S(Z) FZ) ;T(Z);N(Z)EU 
S(Z):NEXT E 

790 FOR XK=1 TO MH:IF U(X)J=Z2+] 
THEN PRINT 4-1,X 

BO0O BEXT X:PRINT+-1,0 

B10 CLOSE4-1:MOTORON:FOR X=1 TO 
100:NEXT X:MOTOROFF:RETURN 

B20 CLS: PRINT"SALVAR DADOS - er 
ro:FOR K=l TO 1000:NEXT:RETURN 
B30 OPEN"I”,+-1,FS:INPUTA-L,MA, 
ME,MH,AA, EE, CK:GOSUB 20 

B40 IF CK THEN INPUT 4-1,SE,FE 
850 FOR A=1l TO AA:INPUT 4-1,X,U 
(X), S(X), FX), T(X), NIX), G(A) US 
(X) :A(A)=X:NEXT A 

B60 FOR E=1 TO EE: INPUTt4+-1,Z,U( 
E)=Z:NEXT E 


(O0=U(Z) OR ZZ+1=U(Z) 


870 INPUT &-1l,X:IF X>0O THEN U(X 
|J=ZZ+1:GOTO B70 

B80 CLOSE 4-1:RETURN 

B90 GOSUB 1870:A=0:GOSUB 1030 

900 FOR A=1 TO AA:X=A(A) :GOSUB 

1000 

910 Y=Y+L:IF Y>8 AND A<AA GOSUB 
1020:GOSUB 1030 

920 NEXT A:GOSUB 1020 

930 E=0:GOSUB 1050:FOR E=1 TO E 
E:X=E (E): PRINT +PR,USING" EA 

":ABS (U(X));:PRINT GPR,US(X) 

940 Y=Y+1l:IF Y>15 AND EXEE GOSU 

B 1020:GOSUB 1050 

950 NEXT E:GOTO 1020 

960 CLS: PRAINT"TEM CERTEZA ? (5 
!N)” 

970 TS=INKEYS:IF TS<>"s” AND TS 
<>"N”º THEN 970 

980 IF TS$="N” THEN RETUAN 

990 CLS: END 

1000 PRINT 4PR,USING"44441 444 
+ HERE FEBRE FERAECGENUCS(X)) 
PENU(F(X)), T(X), NIX) ABS (U(X)); 
: IF PR=O0 THEN PRINT 

1010 PRINT 4PR," ";US(X) :RETURN 
1020 IF PR=0 THEN PRINT"<ENTER> 
PARA CONTINUAR": INPUT FS:CLS:AR 
ETUAN ELSE RETURN 

1030 CLS:IF PR=0 OR A=0 THEN PR 
INT +PR,"INICIO ULTIMA VEZ 90 
& ATIVIDADE" :Y=3 

1040 RETURN 

1050 CLS:IF PR=0 OR E=0 THEN PR 
INT 4PR,”" EVENTO TEXTO":Y=3 
1060 RETURN 

1070 CK=TR:FOR A=l TO AA:X=A(A) 
1080 Z=S(X) :IF S(2Z)<0 OR ZZ<U(z 
) THEN PRINT AS;U(X);WS(5);U(Z) 
!CK=FA 

1090 Z=F(X):IF S(Z)<0 OR ZZ<uU(z 
) THEN PRINT AS;U(X) ;WS(S);U(Z) 
:CK=FA 

1100 NEXT A:IF CK=FA THEN 1540 
1110 E=l 

1120 Z=E(E):IF S(Z)<0 GOSUB 680 
:IF E<=EE THEN 1120 

1130 E=E+1l:IF E<=EE THEN 1120 
1140 FOR E=1l TO EE:Z=E(E):S(Z)= 
O:F(Z)=0:NEXT E 

1150 FOR A=l TO AA:X=A(A) :S(F(IX 
))=X:NEXT A 

1160 SE=0:FOR E=l TO EE:Z=E(E): 
IF 8(Z)>0 THEN 1190 

DT IF SE=0 THEN SE=Z:GOTO 119 
1180 PRINT WS(1l);U(Z):IF SE<=MH 
THEN PRINT WS(I) ;U(SE) :SE=MH+1 
1190 NEXT E:IF SE=0 THEN PRINT” 
TODOS OS EVENTOS TEM” :PRINT AS: 
"PRECEDENDO”" 

1200 IF SE=0 OR SE>MH THEN 1540 
1210 FOR E=l TO EE:Z=E(E):T(Z)= 
O:N(Z)=0:NEXT E:T(SE)=1 

1220 LA=1:FOR C=2 TO EE+2:IF LA 
<>C-l THEN 1280 

1230 FOR A=1l TO AA:X=A(A):Y-SIX 
J:IF T(Y)<>C-1 THEN 1270 

1240 IF Y=F(X) GOSUB 1330:GoTo 
1270 
1250 
1240 
1260 


IF Y<>SE THEN Y=S(Y):GoToO 


Y=F(X):S(Y)=S(X) EIS) sro 





| 1 1 O 


TT) =C:FE=Y:LA=C 

1270 NEXT À 

1280 NEXT C:PRINT"EVENTO INICIA 
L";U(SE);”, EVENTO FINAL ";ULFE 


j 

1290 FOR E=1 TO EE:T=E(E) 

1300 IF F(Y)=0 AND Y<>FE THEN P 
BRINT U(Y):;"NAO CONECTADO AO EVE 
NTO FINAL" :CK=FA 

1310 NEXT E: IF CK THEN 1370 
1320 GOTO 1540 

1330 CLS:CK=FA:PRINT"EXISTE O S 
EGUINTE LOOP": PRINT"EVENTOS 
":XA=A(A) 

1340 X=F(XA):PRINT U(X) : Y=5(XA) 
“PRINT U(Y) 

1350 Y=S(Y): PRINT U(Y): IF Y<>X 
THEN 1350 

1360 FOR X=1 TO 1000:NEXT:RETUR 
N 

1370 K=1:AK=AA:IF AA=1 THEN K=0 
1380 AK=INT((AK+K)/2):IF AK=0 T 
HEN 1430 

1390 K=0:FOR A=AK+1 TO AA:B=A-A 
K-X=A(A):Y=A(B):XE=S(X) :TE=5S(T) 
1400 IF T(YE)+YE/ZZ<=KRE/ZZ2Z+T(IKE 
| THEN 1420 

1410 A(AJ=Y:A(B)=X:K=1 

1420 NEXT A:GOTO 1380 

1430 N(FE)=LA:FOR D=LA-1 TO 1 5 
TEP-1 

1440 FOR A=1 TO AA:X=A(A): IF NÍ 
E (X))<>D+1 THEN 1460 

1450 Y=S(X):F(Y)=F(X):N(T)=D 
1460 NEXT A:NEXT D 

1470 FOR A=1 TO AA:G(A)J=A(A) :NE 
XT A:K=1:AK=AA:IF AA=) THEN K=0 
1480 AK=INT((AK+K)/2) : IF AK=0 T 
HEN 1530 

1490 K=0: FOR As=AK+1 TO AA:-B=A- 

AK:X=G(A) :Y=G(B):XE=F(X) :YESF(L 
) 

1500 IF N(YE)J+YE/ZZ2<=XE/ZZ2+N (XE 
) THEN 1520 

1510 G(B)=K:G(A)J=Y:K=1 

1520 NEXT A:GOTO 1480 

1530 CK=TAR: RETURN 

1540 CK=FA:FOR X=1l TO 1000:NEXT 
X: RETURN 

1550 GOSUB 1870:FOR A=1l TO AA:-X 
=A(A):Z(X)=T(X):NEXT A:GOSUB 16 
20 

1560 FOR A=1 TO AA:X=A(A)J:TIlA)= 
-(Z(F(X))-Y(S(X))=Z2(X))*100:NEX 
T A 

1570 FOR B=1l TO AA STEP 3:CLS:F 
OR A=B TO AA+FNA(B+2-AA) :X=A(A) 
1580 PRINTAPR,AS;U(X);"=";US (AH) 
1590 C=T(S(X)):D=Z(F(X)):PRINT 
+PR,"PODE INICIAR";C;"DEVE TERM 
INAR";D 

1600 PRINT+APA,"TEMPO LIVRE”, INT 
(100*(D-C-Z (X)))/100;" (CRITICO” 
“Y(X):"t)P:IF T=9 THEN PRINTAPR 
USING" DESVIO=tHtt. 44" ;0(X) 
1610 PRINTIPR:NEXT A:GOSUB 1020 
“NEXT B:RETURN 

1620 FnA E=l TO EE:Y(É(E))=0:NE 
XT E 

1630 FOR A=1l TO AA:X=A(A): Y(FIX 
1J)=T(F(R))+HENZOTOS OO) TELA) + 
Z(X)):NEXT A 

1640 FOR E=l TO EE:Z(E(E))=TÍFE 





)J:NEKT E:FOR A=AA TO | STEP-1:X 
=G(A) 

1650 Z(S(X))=Z(5S(K))+ENA(Z(F(R) 
)J-Z(S(X))-Z(X)) :NEXT A:RETURN 
1660 GOSUB 1870:FOR A=1 TO AA:X 
=A (A) :P(X)=0:0(X)=0:Y(X)=0:NEXT 


& 

1670 FOR Es=l TO EE:Z=E(E):P(Z)= 
O:Q(Z)=0:NEXT E 

1680 FOR M=1 TO 43 STEP 3:FOR A 
=1 TO AA:W(A)=2*AND(0)-1:NEXT A 
1690 FOR N=0 TO 4 STEP 2Z:CLS:-PR 
INT"CASO" ;M+N/2;" EM 45" 

1700 FOR A=1 TO AA:X=A(A):TX=T( 
X):IF TX=0 THEN Z(X)=0:GOTO 175 
O 

1710 Nx=N(X) :IF NX=TX THEN Z(X) 
=TX:GOTO 1750 

1720 W=ENW(W(A)J+N/3):IF NX>=TX* 
3 THEN Z(X)=-NX* (W<TK/NX) :GOTO 
1750 

1730 IF NX>DTX*2.34 THEN Z(X)=-T 
X*LOG(W) :GOTO 1750 

1740 W=ENX(W-.5):Z(X)=ABS(TK+W* 
(NX-TX)) 

1750 NEXT A 

1760 GOSUB 1620 

1770 FOR A=l TO AA:X=A(A) : Z=Z(F 
(X))-T(5(X))-ZIX) 

1780 P(X)=P(X)+Z:0(X) =0(X)+Z*"2: 
Y(X)=T(X) +(Z<]E-6) NEXT A 

1790 FOR E=l TO EE:Z=E(E)-P(Z)= 
P(Z)+YIZ):Q(Z)=0(Z)+Z(2Z) NEXT E 
NM 

1800 FOR E=1l TO EE:;Z=E(E):Y(Z)= 
VAL (LEFTS(STRS(P(Z)/45),6)) 
1810 Z(Z)=VAL(LEFTS(STRS(Q(Z)/4 
5),6)):NEXT E 

1820 FOR A=1l TO AA:X=A(A):Y=Y(X 
J:Y(X)<-VAL (LEFTS(STRS(Y/45*100 
1830 IF P(X)<lE-2 THEN P(X)=0 
1840 Z=45-Y+. 1LE-9:Z(K)=Z(F(X))- 
V(S(X))-VAL (LEFTS(STRS(P(K)/2), 
6)) 

1850 O(X) =SQR(ABS((Q(X)-P(X)*P( 
W/2)/((Z-1)+.1E-9))): IF Q(X)<1 
.E-6 THEN 0(X)=0 

1860 NEXT A:GOTO 1570 

1870 IF(PEEK(65314)AND1l)=1 THEN 
RETURN ELSE CLS: PRINTPTELA OU 
IMPRESSORA (T/1I) ?7" 

1880 QS=INKEYS:IF QS<>"T” AND Q 
S<>"I1" THEN 1880 

1890 IF 0QS="I1I" THEN PR=-Z 

1900 CLS:RETURN 


Lab Jc] 


600 HOME PRINT DOS"OPEN "FS 
6U5 PRINT DOS"READ "FS 

610 INPUT MA,ME,MH,AA,EE,CK: 6 
OSUB 12 

615 IF CK THEN INPUT SE,FE 
620 FOR A = 1 TO AA 

625 INPUT X,U(X).S(X),FIX),T(X 


Do, NCX) O(A) US(X) :A(A) = X: NEX 
TA 

630 FOR E = 1 TO EE 

635 INPUT X,U(X),S(X),F(X),T(K 
JN(X) US(X) :E(E) = 4: NEXT E 
640 INPUT X: IF X > O THEN U(X 


) = ZZ + 1: GOTO 640 

645 PAINT DOS"CLOSE "FS 
650 RETURN 

700 PRINT DOS"OPEN “FS 


710 PRINT DOS"DELETE "FS 

720 PRINT DOS"CLOSE “FS 

730 RETURN 

800 GOSUB 942 

810 FOR A = 1 TO AA:X = A(A): 
GOSUB 932 


B20 Y=Y + 1 + ( LEN (US(X)) > 
12): IF Y > 20 AND (A & AA) TH 

EN GOSUB 940: GOSUB 94272 

830 NEXT A: GOSUB 940: 

EVENTOS" :Y = 3 

B40 FOR E = 1 TO EE:X=E(E)J:X 

Pp = U(lX): GOSUB 950: PRINT US(X 

) 

850 Y=Y7 + 1 + ( LEN (USQ) > 
12): IF Y > 20 AND E & EE THEN 
GOSUB 940: GOSUB 946 

860 NEXT E: GOTO 940 

900 INPUT “REINICIA O PROGRAMA 
(S/N)? ":ANS: IF JLEFTS (ANS,1 

) = "Nº THEN 50 

910 LIFE ANS < > 

920 RUN 

932 XP = EN U(S(X)): GOSUB 950 

“ZP = EN U(F(X)): GOSUB 950:XP 
= T(X): GOSUB 950:XP = N(X) 

933 GOSURB 950:XP = ABS (U(X)) 
GOSUB 950 

935 PRINT 

S (X): RETURN 

040 IF KKS < > "58" THEN PRIN 

T "<RETUBN> PARA CONTINUAR” ;: 1 

NPUT FS: HOME RETURN 

941 RETURN 

HOME PRINT "ATIVIDADES:” 

PRINT "--EVENTOS-- ---TEMP 

O-—— a 

944 PRINT "FINAL INICI PROVL E 

STIM CODIGO":Y = 3: RETURN 

950 XPS = JLEFTS ( STR$ (XP) + 

j ",6): PRINT XPS;: RETURN 


PRINT ” 


"S8” THEN 900 


PRINT "TEXTO = ";U 


HOME PRINT "SAIDA P/ IMP 
(5/N)?" 

IF KKS < 
THEN 970 


960 
RESSORA 
970 GET KK3: 
ND KKS < > "8" 
980 RETURN 
1000 CK = TR: FOR A = 
= A(A) 
1020 XE = S(X): 
ZZ < U(XE) THEN 
(S);U(XE):CK = EFA 
1030 Z = F(X): IF S(Z) < 0 OR Z 
Z < U(Z) THEN PRINT U(X);WS(5) 
“U(Z):CK = FA 


> CM A 


1 TO AA:X 


IF S(XE) < O OR 
PRINT U(X);W5 


1040 NEXT A: IF (CK = FA) TREN 
1750 

1050 E = 1 

1060 X = E(E): IF S(X) < O THEN 
GOSUB 400: IF E < = EE THEN 

1060 

1070 É = E + 1: ZE E << = EE TH 

EN 1060 

1080 Fon E = 1 TO EE:X = E(E): 

S(X) = 0:F(X) = O: NEKT E 

1082 FOR A = 1 TO AA:X = A(A): 

S(F(X)) = X: NEXT À 

1090 SE = 0: FOR E = 1 TO EE:X 

= E(E): IF S(X) > O THEN 1096 














1092 IF SE = O THEN SE = X: GO 
TO 1096 
1094 PRINT WS(1I);U(X): IF SE < 


= MH THEN 
SE = MH + 1 
1096 NEXT E: 


PRINT W5S(I)J:U(SE): 


IF SE = O THEN PP 


RINT "TODOS EVENTOS TEM ";AS;" 
PRECEDENDO” 

1098 IF SE = 0 OR (SE > MH) TH 
EN 1750 

1100 FOR E = 1 TO EE:X=E(E): 
T(X) = D:N(X) = O: NEXT E:T(SE) 
1110 LA = 1: FOR C = 2 TO EE + 
2: IF LA << > € -—- à THEN 1170 
1120 FOR A = 1 TO AA:X = A(A): 
+ SIX)! TE TT) E 26) 
EN 1160 

1130 IF Y = F(X) THEN GOSUB 1 
200: GOTO 1160 

1140 IF (Y < > SE) THEN Y = 5 
(Y): GOTO 1130 

1150 7 = F(X):SCT) = SIX):F(S(T 
)J) = T:T(Y) = C:FE = Y:LA = € 
1160 NEXT A 

1170 NEXT C: PRINT "EVENTO INI 
CIAL =" ;U(SE);", EVENTO FINAL = 
"FJU(FE) 

1180 FOR E = 1 TO EE:Y = E(E) 
1190 IF F(Y) = O AND (Y< 5>F 
E) THEN PRINT U(Y);"NAO CONECT 

ADO AO EVENTO FINAL":CK = FA 
1192 NEXT E: IF CK THEN 1300 
1194 GOTO 1750 

1200 HOME : PRINT "EXISTE O SE 

GUINTE LOOP ": PRINT "EVENTOS. 
CHA = A(A) 

1210 X = F(XA): PRINT U(X):Y = 

S(XA): PRINT U(Y) 

1220 Y = S(Y): PRINT U(Y): IF Y 
< > X THEN 1220 

1230 RETURN 

1300 K = 1:AK = AA: IF AA = 1T 
HEN K = 0 

1310 AK = INT ((AK + K) / 2): 
IF AK = O THEN 1500 

1320 K = 0: FOR A = AK + 1 TO A 

A:B= A - AK:X = A(A)J:Y = A(B): 
XE = B(X):VTE = ST) 

1330 IF TITE) + TE / ZZ < =T 
(RE) + XE / ZZ THEN 1360 

1340 A(A) = T:A(B) = X:K = 1 
1360 NEXT A: GOTO 1310 

1500 N(FE) = LA: FOR D = LA - 1 
TO à STEP = IJ 

1520 FOR A =1TOAA;X=ÃãAC(A): 
IE N(F(X)) < > D+ THEN IS6 
Ú 

1550 Y = S(X):F(T) = F(X):NC(Y) 

= D 

1560 NEXT A,D 

1600 FOR A = 1 TO AA:G(A) = Aí 

A): NEXT A:K = 1:AK = AA: IF AA 
= | THEN K = O 

1610 AK = INT ((AK + K) / 2): 
IF AK = O THEN 1700 

1620 K = O: FOR A = AK + 1 TO À 

A:LB = A- AK:X = G(A):Y = G(B): 

RE = FIX)J:YE = F(Y) 


1630 IF N(YE) + YE / ZZ < =N 
(XE) + XE / Zé THEN 1660 

1650 G(B) = X:G(A) = Y:K = 1 
1660  NEKT A: GOTO 1610 


1700 CK = TR: RETUABAN 

1750 CK = FA: INPUT "TECLE <RET 

URN>";HGS: RETURN 

2000 FOR A = 1 TO AA:X = A(A): 
Z(X) = T(X): NEXT A: GOSUB 2100 
2020 FOR A =1TOAA:X =àaA(A): 

T(X) = (Z(FIX)) - YES(H)) = Z(X 
1) * 100: NEXT A: GOSUB 2100 
2030 FOR B = 1 TOAASTEPÕS: H 

OME FOR A = E TO AA + EN A(B 
+ q - hAJ:X = A(A) 

2040 PRINT PRINT AS;U(X);”" = 
"“4US(X) 

2050 € = E(S(X)):D = Z(F(X)) 

2055 PRINT "PODE INICIAR "; IN 

T (C * 100) / 100;", DEVE TERMI 


NAR " INT (D * 100) / 100 

2060 PRINT "TEMPO LIVRE = "; I 
NT ((D -—- C - Z(X)) * 100) / 100 
o (97 INT (Y(X) * 100) / 100; 
"8 CRITICO)" 


2065 IF T= 12 THENPRINTYDE 
SVIO = “+: INT (Q(X) * 100) / 10 
O; 

2070 PRINT NEXT A: GOSUB 940 
- NEXT B: RETURN 

2100 FOR E = 1 TO EE:Y(E(E)) = 
O: NEXT E 

2110 FOR A =1TOAA:X=AaA(A): 
T(F(K)) = Y(F(X)) + EN Z(r(S(K 


)) = TXF(X)) + Z(X)): NEXT À 
2120 FOR E = 1 TO EE:Z(E(E)) = 
Y(FE): NEXT E: FOR A “= AA TÔ 1 
STEP - 1:X = G(Aj 
2130 Z(5S(X)) = Z(S(X)) + 
Z(F(X)) - 20(5(H)) - Z48)): 
A: RETURN 
3000 FOR A =1 
P(X) = 0:0(X) 
T A 
3020 
P(X) = = 
3030 FORM =l1 
OR A = | TO AA:W(A) 
(1) = 1: NEXT A 
3040 FORN=0O0TOd4sSTEPMRZ: HO 
ME PRINT "CASO 4":M + N / 2;" 
tas" 
2950 
TX = 
= 0: GoTo 
3052 NX = 
EN Z(X) = 
3054 W = 
FNX > = 
* (W < TX / NX): 


EN Aí 
NEXT 


TO AA:X = A(A): 
O:Y(X) = O: NEX 


|) 


FOR E = 1 
D:Q(X) 


TO EE:X = 
O: NEXT E 
TO 43 STEP 3: F 
= 2 * BRND 


E(E): 


FOR A = 
TAMApE LE 
3080 
N(X): IF (NX = TX) TH 
TX: GOTO 3080 
FN W(WIA) + N7/ 3): 1 
TX * 3 THEN Z(X) = NX 
GOTO 3080 


1 TO 
TX = 


AA:X = A(A): 
O THEN Z(X) 


3060 IF NX > TX * 2.34 THEN Zí 
X) = —- TX * LOG (W): GOTO 308 
O 

3070 W = EN X(W- .5):2Z(%) = 
ABS (TX + W * (NX - TX)) 

3080 NEXT A 

3090 GOSUB 2100 

3100 FOR A = 1 TO AA:X=ÃA(A): 
a SO ELF(X)) - FLS) = 24X) 
3110 P(X) = P(X) + Z:0(X) = O(X 
) FZ ZN(X) = TX) -—- (Z <A. 
E - 6): NEXT A 

3120 FOR E =1 TO EE:X = E(E): 
PIX) = P(X) + T(X):Q(X) = Q(X) 
+ Z(X): NEXT E,N,M 

3125 IF KKS = "8" THEN PRINT 


DOS" PRk 1º 





3200 FOR E = 1 TO EE:X = E(E): 
Y(X) = VAL ( LEFTS ( STARS (P(X 
) / 45),6)) 


3210 Z(X) = VAL 


( LEFTS ( STR$ 
(QU) / 45),6)): E 


NEXT 


3220 FOR A = 1 TO Ta = A(A): 

To = TAX)J:T(A) = - VAL ( LEFTS 
(| SIRS (ft / d5 * 100),4)) 

3230 TF PIX) < L.E - 2 THEN P( 

x) = 0 

3240. E = (45 — 7) + «IE - 9:;Z4K 

E ZIP) — EMO QRIS — VAE 

LEFTS ( STAS (P(A) ! Z),6)) 

3250 Q(X) = SQR ((O(X) — W(X) 

E PRM dd) f AEE = jd dE = 

9)): IF QUM) €< 1. - 6 THEN QIX 

jm) 

3260 NEXT A: GOTO 2030 


590 IF FS<>AS THEN 680 

600 FOR B=1 TO AA:IF X=A(B) THE 
N A=B 

610 NEXT B:A(A)J=A(AA) :U(X)=ZZ+1 
:AA=AA-1: RETURN 

620 IF U(X)<O COSUB 1050:PRINT 


USING (&tEHE  ";ABS(U(X)):;:PRINT 
US (X):GoTO 650 
630 IF EE=ME THEN PRINT W5(2):F 


>: RETURN 

640 GOSUB 660 

650 PRINT W$(4);FS: INPUT US(X): 

S (X) =0: RETURN 

660 EE=EE+L:E(EE)=X: 
jJ=0:U(X)=U 

6720 T(X)=0:N(X)=0:-US(X)="":RETU 

RN 

680 Z=X:FOR F=1 TO EE:IF E(F)=Z 
TREN E=F 

690 NEXT F:E(E)=E(EE):U(Z)=ZZ+1 
: EE=EE-1: RETURN 

700 Z=U-INT((U-1)/MH) *MH:Y=2:X= 
[à] 


S(X)=-):F(X 


710 IF X=0 (O=U(Z) OR ZZ+]=U(Z) 
) THEN X=Z 

720 IF U=U(Z) THEN X=Z: RETURN 
730 IF Y=1 OR 0=U(Z) THEN RETUR 
N 

740 Z=Z+Y-MHBX*INT((Z+Y-1)/MH):Y 
Y+Y-MBXINT((Y+Y-1)/MB):GOTO 170 


750 OPEN "CAS:"+ES FOR OUTPUT A 
S +3 

755 PRINT+3, MAZSMEZSMHZSAAZSEE 
ZSEEZSCKZS 


760 IF CK THEN PRINT43,SEZSFE 

770 FOR A=1 TO AA:X=A(A): PRINT 

EI, X; ZSU(X) ZSS(X) ZSF(X) ZST (IX) Z5 

N(X) Z5SC(A) ZSUS (X) «NEXT A 

780 FOR E=l TO EE:Z=E(E):PRINT+ 

3,4 ESU(Z) Z55S (Z) ZSF(Z) ZST(Z) Z5N 
(Z) ZSUS (Z) NEXT E 

790 FOR X=1l TO MB:IF U(X)=Z2+1 

THEN PRINT 43,X 

800 BEXT X:PRINT43,0 

B1LO CLOSE43:MOTORON:FOR X=1 TO 

100:NEXT X:MOTOROFF: RETURN 

820 CLS: PRINT"SALVAR DADOS - er 

ro:FOR K=1 TO 1000:NEXT:RETURN 

830 OPEN "CAS:"+FS FOR INPUT AS 
IJ: INPUT 43,MA,ME,MH,AA,EE,CK: 

GOSUB 20 








840 IF CK THEN INPUT 43,5SE,FE 
850 FOR A=1 TO AA: INPUT 43,X,U( 
O .SC)FOO. TOU). N(R) GA) USC 
X):A(A)=X:NEXT A 

860 FOR E=1l TO EE: INPUT43,Z,U(Z 
) 18(Z) (F(Z) «T(Z) «N(Z) (US (AZ) “E(E 
)J=Z:NEXT E 

870 INPUT 43,X:IF X>0 THEN U(X) 
=Z2+1:GOTO 870 

BB0 CLOSE +43:RETUAN 

890 GOSUB 1870:A=0:GOSUB 1030 
000 FOR A=1 TO AA:X=A(A) :GOSUB 
1000 

910 Y=Y+L:IF Y>B AND A<AA GOSUB 
1020:GOSUB 1030 

920 NEXT A:GOSUB 1020 

930 E=0:GOSUB 1050:FOR E=1 TO E 
E:-X=E(E):PRINT 4PR, USING IREI 

".ABS (U(X));:PRINT 4PR,US(X) 

940 Y=Y+L:IF Y>15 AND ESXEE GOSU 

B 1020:GOSUB 1050 

950 NEXT E:GOTO 1020 

960 CLS:PRINT"TEM CERTEZA ? +15 
fN)” 

970 TS=INKEYS: IF TS<>"5S" AND TS 
<>"N” THEN 970 

980 IF T5S="Nº THEN RETURN 

990 CLS: END 

1000 PRINT +tPR,USINGO"AMHHE HI 
LOL AEARE FERA GENUCSIA)) 
(EFNU(CE(X)),T(X) NIX) ABS (U(X)); 
“IF PR=0 THEN PHINT 

1010 PRINT +PR," ";US(X) : RETUAN 
1020 IF PR=1 THEN PRINT'<ENTER> 
PARA CONTINUAR": INPUT FS:CLS:R 
ETURN ELSE RETURN 

1030 CLS:IF PR=1 OR A=0 THEN PR 
INT 4tPR."INICIO ULTIMA VEZ 90 
& ATIVIDADE” :Y=3 

1040 RETURN 

1050 CLS:IF PR=1 OR E=0 THEN PR 
INT 4PR,” EVENTO TEXTO" :Y=3 
1060 RETURN 

1070 CK=TA:FOR A=1 TO AA:X=A(A) 
1080 Z=S(X):IF S(Z)<0 OR ZZsSU(lZ 
) THEN PRINT AS;U(X);WNS (5) U(Z) 
«CK=FA 

1090 Z=F(X):IF S(Z)<0 OR ZZ<U(Z 
) THEN PRINT AS;U(X);WS (5) GUlZ) 
:CK=FA 

1100 NEXT A:IF CK=FA THEN 1540 
1110 E=1 

1120 Z=E(E):IF S(Z)<0 GOSUB 680 
"IF E<=EE THEN 1120 

1130 E=E+1l;IF E<X=EE THEN 1120 
1140 FOR E=1l TO EE:Z=E(E):S(Z)= 
O:F(Z)=0:NEKT E 

1150 FOR A=1l TO AA:X=A(A):S(F(X 
1)=X:NEXT A 

1160 SE=0:FOR E=1 TO EE:Z=E(E): 
IF S(Z)>0 THEN 1190 

1170 IF SE=0 THEN SE=Z:GOTO 119 
0 

1180 PRINT WS(1);U(Z): IF SE<=MH 
THEN PRINT WS (1) ;U(SE) :SE=MH+1 
1190 NEXT E:IF SE=0 THEN PRINT” 
TODOS OS EVENTOS TEM":PRINT AS; 
"PRECEDENDO” 

1200 IF SE=0 OR SE>MH THEN 1540 
1210 FOR E=1 TO EE:Z=E(E):T(Z)= 
O:N(Z)=0:NEXT E:T(SE)=1 

1220 LA=1:FOR C=2 TO EE+2:IF LA 
<>C-1 THEN 1280 


1230 FOR A=1 TO AA:X=A(A):Y=S(X 
J:IF T(Z)<>C-l THEN 1270 

1240 IF Y=F(X) GOSUB 1330:GO0OTO 

1270 

1250 IF Y<>SE THEN Y=S(Y)-GOTO 

1240 

1260 Y=F(X):S(Y)=S(X):F(S(T))=Y 


:T(Y)sC:FE=Y:LA=€ 

1270 NEXT A 

1280 NEXT C:PRINT"EVENTO INICIA 
Lº";U(SE):", EVENTO FINAL “;U(FE 
) 

1290 FOR E=1l TO EE:Y=E(E) 

1300 IF F(Y)=0 AND Y<>FE THEN P 
RINT U(Y);"NAO CONECTADO AO EVE 
NTO FINAL" :CK=FA 

1310 NEXT E:IF CK THEN 13/70 
1320 GOTO 1540 

1330 CLS:CK=FA:PRINT"EXISTE 0.5 
EGUINTE LOOP”: PRINTTEVENTOS 
":RA=A(A) 

1340 X=F(XA): PRINT U(K) :Y=S(XA) 
“PRINT U(Y) 

1350 Y=S(Y):PRINT U(Y):IF Y<>X 
THEN 1350 

1360 FOR X=1 TO 1000:NEXT:RETUR 
N 

1370 K=1:AK=AA:IF AA=1 THEN K=0 
1380 AK=INT((AK+K)/2):1IF AK=0 T 
HEN 1430 

1390 K=0:FOR A=AK+1 TO AA:B=A-A 
K:X=A (A) :Y=A(B) :XE=S(X) : YESS(T) 
1400 IF T(VYE)+YE/ZZ2<=KE/ZZ+T(XE 
1) THEN 1420 

1410 A(AJj=Y:A(B)=X:K=1 

1420 NEXT A:GOTO 1380 

1430 N(FE)J=LA:FOR D=LA-1 TO 1 5 
TEP-1 

1440 FOR A=1 TO AA;X=A(A):IF NÍ( 
F(X))<>D+1 THEN 1460 

1450 Y=S(X):F(Y)=F(X):N(T)=D 
1460 NEXT A:NEXT D 

1470 FOR A=l TO AA:G(A)J=A(A) :NE 
XT A:K=1:AK=AA:IF AA=1 THEN K=0 
1480 AK=INT((AK+K)/2):1IF AK=0 T 
HEN 1530 

1490 K=0: FOR A=AK+1 TO AA:B=A- 
AK:X=G(A) :Y=G(B) :XE=F(X) :YE=F(Y 


) 

1500 IF N(VE)+YE/ZZ2<=KE/ZZ2+N (XE 
|) THEN 1520 

1510 G(B)=K:G(A)=Y:K=1 

1520 NEXT A:GOTO 1480 

1530 CK=TR:RETURN 

1540 CK=FA:FOR X=1 TO 1000:NEXT 
x: RETURN 

1550 GOSUB 1870:FOR A=1 TO AA:X 
=A (A) :Z(X)=T(X):NEXT A:GOSUB 16 
20 

1560 FOR A=1 TO AA:X=A(A):Y(X)= 
-(Z(F(X))-Y(S(X))=Z2(X))*100:NEX 

T A 

1570 FOR B=1 TO AA STEP 3:CLS:F 
OR A=B TO AA+FNA (B+2-AA) :X=A(A) 
1580 PRINT+4PR,AS;U(X);"=";US(X) 
1590 C=Y(S(X)):D=Z(F(X)):PRINT 
PR, "PODE INICIAR”";C;"DEVE TERM 
INAR";D 

1600 PRINT+APR,"TEMPO LIVRE"; INT 
(100*(D=C-Z (X)))/100;" (CRITICO” 
YR)" R)PEIF T=9 THEN PRINTIPR 
+«USING"DESVIO=4H444.44";0(X) 
1610 PRINT&PR:NEXT A:GOSUB 1020 


NAM E E EE SEE e DR 


“NEXT B:RETURN 

1620 FOR E=1l TO EE:Y(E(E))=0:NE 
XT E 

1630 FOR A=1 TO AA:X=A(A):Y(F(X 
3)=Y(F(X))+ENZOT OS Q0)-Y(F(X))+ 
Z(X)):NEXT A 

1640 FOR E=1l TO EE:Z(E(E))=YIFE 
Y:NEXT E:FOR A=AA TO 1 STEP-1:k 
=G (A) 

1650 Z(S(X))=Z(S(X))J+ENA(Z(EF(X) 
)J-Z(8(X))-Z(X)):NEXT A:RETURN 
1660 GOSUB 1870:FOR A=1 TO AA:X 
=A(A):P(X)=0:0(X)=0:Y(X)=0:NEXT 


A 

1670 FOR E=l TO EE:Z=E(E):P(Z)= 
0:0(Z)=0:NEXT E 

1680 FOR M=1 TO 43 STEP 3:FOR A 
=1 TO AA:W(A)=2*RND(0)-1:NEXT A 
1690 FOR N=0 TO 4 STEP 2:CLS:PR 
INT"CASO" ;M+N/2;" EM 45” 

1700 FOR A=1l TO AA:X=A(A):TX=T( 
X):IF TX=0 THEN Z(X)=0:GOTO 175 


0 

1710 NX=N(X) :IF NX=TX THEN Z(X) 
=TX:GOTO 1750 

1720 W=ENW(W (A) +N/3): IF NK>=TX* 
3 THEN Z(X)=-NX* (W<CTX/NX) :GOTO 
1750 

1730 IF NX>TX*2.34 THEN Z(X)=-T 
X*LOG(W) :GOTO 1750 

1740 W=ENX(W-.5):Z(X)=ABS(TK+W* 
(NX=TX)) 

1750 NEXT A 

1760 GOSUB 1620 

1770 FOR A=1 TO AA:X=A(A) :Z=Z(F 
(X))-Y(S(K))-Z(K) 

1780 P(X)=P(X)+Z:Q(X) =Q(M)+Z*Z: 
V(X)=Y(X)+(Z<1E-6) NEXT À 

1790 FOR E=1 TO EE:Z=E(E):P(Z)= 
P(Z)+YIZ) :Q(Z)=Q(Z2)+Z(Z) NEXT E 
NM 

1800 FOR E=1l TO EE:Z=E(E):Y(Z)= 
VAL (LEFTS (STRS(P(Z)/45),6)) 
1810 Z(Z)=VAL (LEFTS(STRS(QO(Z)/4 
5),6)):NEXT E 

1820 FOR A=1 TO AA:K=A(A):Y=Y(X 
J:Y(X)=-VAL (LEFTS (STRS (Y/45*100 
) 4) / 

1830 IF P(X)<l1E-2 THEN P(X)=0 
1840 Z=45-yY+., 1E-9:Z(X)=Z(F(X))- 
Y(S(X))-VAL (LEFTS (STARS (P(X)/Z), 
6)) 

1850 Q(X)=SQR (ABS ((Q(X)-P(X)*P( 
Y /2)/((Z2-1)+.1E-9))): IF Q(R)<1 
.E-6 THEN Q(X)=0 

1860 NEXT A:GOTO 1570 

1870 CLS:PRINT"TELA OU IMPRESSO 
RA (T/1) ?" 

1880 QS=INKEYS:IF QS<>"T” AND Q 
$<>"I” THEN 1880 

1890 IF 0Q$="I" THEN PR=2 

1900 CLS:RETURN 


Se você tem um acionador de disque- 
te acoplado ao seu MSX, proceda às se- 
guintes modificações: 


750 OPEN "A:"+FS FOR OUTPUT AS 
+3 

830 OPEN "A:"+FS FOR INPUT ASt3 
- INPUT+3,MA,ME,MH, AA, EE, CK:GOSU 
B 20 








LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





NaannNO PRÓXIMO NUÚUMEROHHEEEHII 


APLICAÇÕES 

Um programa de referência cruzada. Como utilizar. Aplicações. 

SOFTWARE 
Sistemas de gerenciamento de bancos de dados. Importação 
e exportação. Chaves de acesso e de ordenação. Saídas. 
PERIFERICOS 
Processamento de imagens: câmara de vídeo e dispositivos CCD. 
SUMARIO GERAL 


Relação dos artigos, por títulos, das várias seções de INPUT. 


SUMÁRIO DOS QUADROS 
Temas Gerais, Microdicas, Perguntas 
e Respostas, Tabelas. 





